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Os mais importantes 
programas do mercado 

E MAIS ! | 

• Cuerra na montanha 

• Convite aos 
bons vaqueiros 

• Se^ao western 

• impeca a fuga 

• Super-Detetive 

• Funde a cuca v 



• Dr. Kasklin 
1 e os f agocitons 
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A SYSDATA GANHA 

DINHEIRO FAZENDO 

MICROCOMPUTADORES 

COMO O SYSDATA III. 

ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 



SYSDATA III 

Aqui, t udo o que Voce espera 

de um grande micro. 

Compativel com o TRS-80 
Modelo III da Radio Shack. 
Gabinete. teclado e CPU em 
modulus independentes. 
Versoes de 64 a 128 KBytes de 
RAM, 16 KBytes de ROM. 
Teclado profissional com 
numerico reduzido e 4 teclas 
de fungoes. 

Sistema operacional de disco 
DOSIIIouCP/M2.2. 
Caracteres graTicos. 
Video composto com 18 MHZ 
de faixa de passagem. 
Saida para impressora 
paralela. 

SYSDATA III 
Software disponivel 
variado. Escolha o sou. 

Videotexto(TELESP). 

ProjetoCirandao 

(EMBRATEL). 

Rede de telex. 

Sistema Gerenciador de 

Banco de Dados (SGBD), 

DBASE II. 

Compiladores Cobol, 

Fortran, Pascal, Basic, Forth, 

Lisp e Pilot. 

Editor de textos. Editor de Assembler. 

Desassemblador. 

Debugador. 

Visicalc. 

Wordstar, 

e muitos outros. 






SYSDATA III 

Caracteristicas tecnicas. 

Para aqueles que querem 

saber t udo. 

Total compatibilidade com o 

TRS-80 Modelo III da Radio 

Shack. 

Processador Z-80-A. 

Video de 16 x 64 ou 16 x 32 

(linhas x colunas). 

Alimentacao de 110 V ou 220 V. 

Teclado alfanumerico de 

69 teclas. 

Teclado numerico reduzido 

com 4 teclas de fungoes. 

GraTicos com 128 x 48 pontos 

no video 

Aceita ate duas RS-232-C 

(Sincronas ou Assincronas). 

Modem (opcional). 

Saida paralela para 

impressora. 

Placa controladora para ate 

4 drives de 5 e 1/4", dupla 

densidade (180 KBytes por 

face), face simples (dupla face 

opcional). 



Opcoes futuras: 

Video compativel 16 x 64, 
^^^^^^ 16 x 32, 24 x 80 ou 24x40 

(linhas x colunas). 

Expansao ate 256 KBytes 

deRAM. 

Alta resolugao grafica e cor. 

Interface para acionamento de disco rigido 

(Winchester) de 5, 10 ou 20 MBytes. 

Clock dobrado (4,0 MHZ). 

Total compatibilidade com o TRS-80 

Mod. IV 
CP/M versao 3.0. 
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+ a DOMINE AS AREAS DA 
14 MEMORIARAM- 

Conheca melhor a estrutura do seu 
micro da linha Sinclair com esta 
rotina, de Claudio de Freitas B. 
Bittencourt, que arruma para voce 
as areas da RAM. 



/%/* O SUPER-DETETIVE 

JLo Quern e o criminoso? Qual 
foi a arma e em que local? 
Descubra a resposta para estas 
perguntas e torne-se o Super- 
detetive neste jogo para a linha 
Sinclair, de Alberto Cezar de 
Carvalho. 
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<*£- JOGUEEMRITMO 
•JO ASSEMBLER - Chega de 

frustacao! Desenvolva e incremente 
jogos em Assembler no seu micro 
da linha Sinclair, usando duas 
simples rotinas que Giangiacomo 
Ponzo Neto ensina a implementar. 

C/T OS JOGOS COMERCIAIS- 

30 Um assunto muito serio, que 
merece os comentarios de Renato 
Degiovani, e uma tabela 
especialmente feita pela equipe de 
MS com tudo sobre jogos: os mais 
importantes existentes no mercado, 
os mais vendidos e ainda uma 
relacao de acessorios disponiveis. 



8 GO, UM DESAFIO MILENAR - Programa 
de Waldir Ferreira de Arruda, para a linha 
Sinclair. 



yfyf APERTE OS CINTOS E PILOTE NO 
4^¥ ESCURO! - Programa para a linha Sinclair 
de Claudio Costa. 



-|^ UM CONVITE AOS BONS VAQUEIROS - A ^ 

±0 Programa para TRS-80 III, de Marcos 4(> 
Fernando Ribeiro Ferraz. 

-|/T FUNDE A CUCA - Programa para Apple de Aft 

lO Claudio Coelho Lima. ^" 



SESSAO WESTERN - Programa para a 
linha Sinclair, de Claudio Costa. 



GUERRA NA MONTANHA - Programa 
para a linha Apple, de Andre Koch Zielasko. 
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Bastos. 



DR. KASKLIN E OS FAGOCITONS - 

Programa para TRS-80, de Rui Ribeiro de 



LANCE OS DADOS E... BOA SORTE! - 

Programa de Marco Sergio Furtado Valeriano, 
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para micros da linha Sinclair. 



1(\ IMPECA A FUGA DAS NAVES INIMIGAS 

♦3" - Programa para a linha TRS-80 I, de Silvio 
Cavalcanti de Araiijo. 

^-^ DEFENDA-SE - Programa para a linha 
+J*L Sinclair, de Tadeu Curinga da Silva. 



50 

52 

Silva 

54 
66 



MISSAO.RESGATE - Programa para micros 
da linha Sinclair, de Claudia Eleone Gomes. 



A,D,B» ORDENE AS LETRAS - Programa 
para a linha Sinclair, de Roberto dos Santos 



O SOBREVIVENTE - Programa de"5ergio 
Gouveia, para a linha Sinclair. 

CATALOGO DE DIRETORIOS - Utilitario 
para TRS-80, de Carlos Roberto Cerri. 
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Vamos entrar em ti5 com o pe 
direito. Muitas mudancas ja 
pod em set pressentidas em 
todos OS nil cis da vida national, e 
MICRO SISTEMAS nao quer, deci- 
dida m eiitc. deixa r de ap ro i eitar essa 
Hilda de renoiacao para, ela tani 
bem, se reciclar e, assim, atenderca- 
da vez mats a seus leitores. 

Ja outras vezes tire oportunida- 
de de agradecer, deste Dies mo es pa- 
ct), a nnensa colaboracao prestada 
por nossos leitores no sucesso edito- 
rial a lea u (ado por MS. Neste novo 
ano, contudo, uma apreciacao do 
quant o nossa re vista evoluiu me le- 
la. mats utna i ez, a faze-lo: de fato, 
jamais poderemos pensar em MS e 
no pa pel i/ne ela tern desempenhado 
na coniuiitdade usuaria de micros 
'.tin considerar o enorme apoio 
prestado por nossos leitores e ami- 
I:m 85, pretendemos mudar al- 
ii u mas coisas, para melhor. 



% E cd estamos, comecando o ano 
por nossa ja traditional edicao dejo- 
gos. Aproveitando um periodo defe- 
rias escolares, presenteamos o pes- 
soal com um conjunto de programas 
de lazer que certamente vat agradar. 
Procuramos cobrir as mais significa- 
tivas linhas de equipamentos pes- 
soais, suprindo-as com jogos inte- 
ressantes, todos devidamente testa- 
dos em nosso CPD, de listagens cur- 
tas — para facilitar seu trabalho — 
e efeitos surpreendentes. 

Ressaltamos ainda uma materia 
bastante completa, onde voce se in- 
formara sobre os jogos mais f am o- 
sos do mercado, muitos dos quaisfo- 
ram listados, a partir de pesquisa 
realizada por nossa equipe, para que 
voce possa comparar os precos e 
compatibilidades de cada um. 

# Gostaria ainda de ressaltar aqui 
nosso contentamento em ter, na edi- 
cao passada, finalizado a implemen- 



tacao do SGM do Microbug, brilhan- 
temente coordenada por nosso cole- 
ga Renato Degiovani. Com isto, en- 
tramos em nova fase, que contara, 
tenho certeza, com a participacao de 
todos aqueles que acompanharam o 
projeto e hoje tern nas maos uma po- 
derosa ferramenta, fruto de acao ine- 
dita na area editorial bras Heir a que 
bem reflete nosso objetivo: fazer de 
MS um veiculo dinamico que contri- 
bua para uma maior interacao entre 
leitores e revista, promovendo um 
uso intenso e rational dessas maqui- 
nas que nos temos o privilegio de pi- 
lotar. E vamos ao uso: divirtam-se 
com os jogos/ 
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SOFT WA RE 

apresenta novas fitas com 
desafios emocionantes para voce! 



PARA EQUIPAMENTOS COM LOGICA SINCLAIR 



l.VALKIRIE 

Pilote a nave 
Valkirie e parta 
em busca de dez 
castelos perdidos. 
(Exclusividade 
Ciberne, por 
DivinoC.R. 
Leitao). 
E mais: 
GUERRILHA 
C6SMICA 
eZOR. 



4. DEFENSOR 3D 

Livre nosso 

planeta de uma 

invasflo 

alienigena. 

Fantasticas 

simulagoes 

tri-dimensionais. 

E mais: Q'BERT 

(Exclusividade 

Ciberne, 

por Divino C.R. Leitao) e 

ASSALTO. 






2. MERCADOR DOS 

SETE 

MARES 

No seculo XIX 

voce percorre o 

mundo a bordo 

de seu navio, em 

busca de bons 

neg6cios. 

E mais: 

CORRIDA MALUCA e PINBALL 

(Exclusividade Ciberne, por Divino 

C.R. Leitao). 

5. ROT I - PLUS 

• S.O.G. 
Sistema 

operacional, com 
linguagem 
grdfica. Infinitas 
opcoes de uso. 
Totalmente em 
codigo de 
maguina 
(Exclusividade Ciberne, por J. Magal). 

• MERGE 

Possibilita a juncao de varios 
programas, uns aos outros. 




PARA EQUIPAMENTOS COM L6GICA TRS-80 



l.SIMULADORDEVOO 

Totalmente 
grafico e 
acompanhado 
de livro de 
instrucoes, com 
diagramas, 
tabelas etc. 
E mais: 
PINTOR 
MALUCO e 
O DESAFIO DA 
GALINHA. 




2. XADREZ 

O mais 

tradicional dos 

jogos, 

reeditado em 

nova e 

brilhante 

versao. 

E mais: 

PATRULHA 

ARMADA 

e PANICO 

(totalmente sonorizados) 





3. SUBESPAQO 

Implacavel 

cacada espacial. 

Totalmente 

grafico. 

E mais: 

CAVERNAS DE 

MARTE 

(Exclusividade 

Ciberne, por 

Divino 

C.R. Leitao) eCOMBOIO 

ESPACIAL. 



6. APLIC'I 

• COMP-CALC 

Rapido, eficiente e totalmente em 
c6digo de maguina. A melhor versao 
do ja famoso Visi-Calc. 

• COMP-ARQ 

Programa gerador de arguivos. 
Totalmente em codigo de maguina. 
Modele fichas e as acesse pelo 
campo gue guiser. 

• COMP-TEXTO 

De facil manipulacao, totalmente em 
codigo de maguina. 




WC & 20030 




O sorteado deste mes, que recebera umi 
atsinatura de um ano da MICRO 
SISTEMAS, a Valerio F. Lauba, da Santa 
Catarina. 
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No programs Batalha naval, publicado 
em MS n? 32, pag. 70, encontrei alguns er- 
ros na listagem a a ausencia de duas linhas: 
faltou uma aspas no final da linha 2790; nab 
foi colocado um AT ap6s o PRINT da linha 
5340; e estas duas linhas nab const aram do 
programa: 

8035 PRINT AT 19 f 1;"HIDROAVlAO 3 
PARTES" 
8037 GOSUB VAL "8100" 

Quern digitou o programa notou que, 
quando estava jogando no nfvel 2 ou 3, e o 
micro estava perdendo (ou empatando, no 
caso do ni'vel 3), o programa parava acusan- 
do erro 3 na linha 5750. Isso acontecia por- 
que estavam faltando linhas no programa 
publicado. Fiz estas alteracdes que deram 
certo: 

5744 IF CODE A$ (SA.2 TO)-37 ■ 

5745 LET C = CODE A$ (SA,2 TOJ-37 

5746 LET A$ (SA) = "**" _ 

5747 IF P$ (1,C) =" tffl " OR P$ 
<1,C) = "*" THEN GOTO VAL "5743" 

5748 GOTO VAL "7000" 

Alem disso, gostaria tamWm de fazer 
uma sugestab para MS: publiquem mais jo- 
gos que na~o sejam repetitivos e que usem va- 
lores randomicos, tornando-os, assim, com 
maior dificuldade para se viciarem. 
Francisco Roberto Costa 
Sab Carlos-SP 

Inicialmente, Francisco, sua sugestab 
tambem 6 nossa e a astendamos aos leitores 
qua colaboram conosco. Com relacao as 
suas observacoes sobre o Batalha naval, qua 
alias foi testado em nosso CPD a funcionou 
(e funciona) perfeitamente, mandamos suas 
consideracoes para o autor, nosso amigo 
a colaborador Waldir Ferreira de Arruda. Eis 
os comentarios que recebemos do Waldir: 

"Realmente, nas linhas 2790 a 5340 es- 
tio faltando uma aspas a o AT, respect rv a - 
mente. As linhas 8035 e 8037 nab constam 
do programa porque achei desnecessario co- 
loca-las, visto que as caracteristicas do hi- 
droaviab permitem facilmente a verificacab 
de que ele a composto de tres partes. 

Quanto ao erro 3 na linha 5750, este e 
descrito no manual do equipamento como: 
"A matrix nio con tern o elemento especifi- 
cado". Portanto, um dos valores da linha 
5750, itto a, ou L ou C, deve tar sido digi- 
tado com valor inferior a zero ou superior a 
15. Para qua o colaga Francisco possa iden- 
trficar melhor onde errou na digitacio, lista- 
rai as provaveis linhas, e suas principals fun- 
c6es, em qua este erro deve ter ocorrido: 
20 DIM M$(15,15) - matrix do micro 
30 DIM P$(15,15) - matriz do humano 
2815 DIM A$(38,2) - matriz de 38 ele- 
mentos com tama- 
nho de 2 caracteres 
2816LETA = - zaracontador 



3411 LET A = A+1 - incrementa conta- 

dor 

3412 LET A$(A) ■ L$- move linha a colu- 

na (L$) para a ma- 
trix A$ (coordena- 
das das pecas do 
humano) 
5670 e 5680 — gera numero ran- 

dOmico antra 1 a 
15 
5741 — gera numero ran- 

domko entre 1 e 
38 
Com referenda a I6gica dos nfveis de di- 
ficuldade, sa o micro estiver perdendo (no 
nfvel 2), ou se estiver empatado ou perden- 
do (no nfvel 3), o programa passara auto- 
maticamente para a linha 5741, que pega 
um numero random ico entre 1 e 38, que e 
a quantidade de pecas existentes de cada jo- 
gador. A linha 5742 acha uma coordenada 
da matriz A$ que nab contenha os "**", ou 
saja, encontra uma coordenada do humano 
que ainda nffo foi acertada pelo micro, e mo- 
ve estas coordenadas para 'linha a coluna' 
nas linhas 5743 e 5744. Na linha 5750, o 
"* *" e movido para a matriz A$, isto pa- 
ra marcar as pecas ja atingidas pelo micro. 
E tanto faz que a linha 5743 tenha a sintaxe 
LET L =CODE A$(SA)-37 ou LET 
L =CODE A$(SA,1 TO D-37, pois o re- 
sultado sari o mesmo. 

Na linha 5750 e movido o carat er GRA- 
PHICS SHIFT A para a matriz do huma- 
no. Assim, so pod era dar erro 3 nesta li- 
nha, como ja citei, se L ou C tiverem um va- 
lor menor que zero ou maior do que 15. E 
para que isto acontecesse, seria preciso que 
a matriz A$ possufsse caracteres menores 
do que A ou maioras que O, mas asta consis- 
tence a feita pelo programa nas linhas de 
3170 a 3230, a movidas (uma a uma) para 
a matriz A$ (nas linhas 3411 e 3412) so- 
mente as coordenadas dentro do limite da 
matriz P$. que foi definida na linha 30. 

Espero que esta explicacab ajude o Fran- 
cisco a encontrar o seu erro ou efetuar as al- 
teracdes que deseje (pelo menos quanto aos 
nfveis)." 

Waldir Ferreira de Arruda 
Sab Paulo-SP 
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Gostariamos de parabeniza-los pela ma- 
teria Editores de texto, publicada em MI- 
CRO SISTEMAS n9 36, setembro de 84. 
Entretanto, alguns esclarecimentos tornam- 
se necessarios: o processador de texto Edi- 
rex, que 6 marca registrada e exclusiva da 
Microarte Software, de Sab Paulo, 6 um pro- 
cessador para a linha Apple e atualmente es- 
ta em sua terceira versab: o Editex III. 

O Editex III foi especialmente desenvol- 
vido para o equipamento Microengenho 2, 
e tern todos os caracteres de nossa lingua, 
bem como separacab silabica, dicionario in- 
terno programavel, confenSncia ortogrdfica 
on-line, dupla coluna autom£tica, notas de 
rodape, negrito, sublinhado, integracab com 
folha eletr6nica e banco de dados, 10 mo- 
dos de alinhamento e varios outros coman- 
dos de edi cab e impressab (...). 

E" importante notar que ele 6 o unico 
processador de textos para a linha Apple de- 
senvolvido no Brasil, sendo que a Microarte 
possui a fonte do sistema. Os demais proces- 
sadores sab tradupSes ou cbpias americanas 
e possuem menor capacidade que o Editex 
III. Existe uma versab (simplificada) deste 
mesmo processador para outros computado- 



res da linha Apple, que tern gerador de ca- 
racteres minusculos e tecla SHIFT ativa: o 
Editex 1.4, que acentua tambfl*m em varias 
impressoras, sem precisar de nenhuma adap- 
tacab de hardware (...). 
Luis A. M. Meloni e Luiza H. C. Meloni 
Diretores da Microarte Software Ltda. 



Parabens pela materia sobre Editores de 
texto, publicada em MS n° 36: realmente 
MICRO SISTEMAS continua cada vez me- 
lhor. Todavia, temos alguns comentarios a 
fazer: 

N6s nab fomos consultados ou procure- 
dos por ninguem da MS anted pad am em e 
sobre esta materia e, assim, na"o sabemos de 
onde surgiu a c6pia do Editex da Monk que 
voces analisaram. Pelo texto da analise, de- 
preende-se que 6 a versab de 1982 ou 83 de 
nosso editor de textos, que se chamava, na 
epoca, Editex. 

Isto criou do is problemas: um para nbs, e 
outro para a Microarte Software. Para nbs, 
porque o produto analisado esta" defasado 
no tempo, e temos hoje outro editor de tex- 
to, com outro no me, lancado no ini'cio de 
84, ja em sua segunda versab que, alem de 
na"o ter as deficiencias apontadas na mate- 
ria, tern outros recursos favoraveis. E para 
a Microarte porque esta empresa e, desde ju- 
nho de 84, a detentora da marca Editex (...). 

Quanto a materia em si, como ja* disse- 
mos, esta muito boa, principalmente consi- 
derando o arido panorama da divulgacab de 
software pela imprensa especial izada. Gosta- 
riamos apenas de complementar que deve- 
riam ser enfatizados os software genuina- 
mente nacionais, como o da Monk e outros, 
porque isto 6 mais educativo e esclarecedor 
para o publico, mesmo porque os editores 
de texto americanos sab de diffcil utiliza- 
pab, prova disso e que a maioria dos usuarios 
do nosso editor sab pessoas que ja ten ta ram 
usar, sem sucesso, os editores americanos, 
como, ali^s, concorda o Sr. Antonio Macchi 
Jr., citado na reportagem de MS. 

No mais, continuem sempre com suces- 
sos e progressos na MS, e de nossa parte, 
permaneceremos a disposica"o para qualquer 
colaboracab. 

Guilherme Quandt de Oliveira Jr. 
S6cio-gerente da Monk Micro Informatica 
Ltda. 



Com' referencia ao artigo Editores de 
texto, publicado em MS n9 36, na pagina 29 
foram publicadas informacoes sobre o que a 
Polymax oferece em termos de produtos pa- 
ra processamento de textos, mas algumas 
destas informacoes estavam incorretas e, as- 
sim, fornecemos agora as correcfles: 

A Polymax oferece dois produtos para 
processamento de textos, o Poly 105 WP e o 
Poly 301 WP. As diferencas entre eles sab: 

— preco (CPU + teclado + vfdeo + dois dri- 
ves): o Poly 105 custa 850 ORTN, com flo- 
ppy de 5 1/4"; e o Poly 301 tern o preco de 
1 200 ORTN, com floppy de 8". 

— armazenamento: o Poly 105 usa duas 
unidades de floppy 5 1/4", com capacidade 
individual de 250 Kb; o Poly 301 utiliza ate 
quatro unidades de disco flexfvel de 8", 
com capacidade individual de 500 Kb, e po- 
de utilizer ainda disco n'gido tipo Winches- 
ter de 5 ou 10 Mb ou fita magnetica, sendo 
que a capacidade total do sistema vai ate" 
40 Mb. 

— impressora utilizada: ambos equipamen- 
tos usam a impressora de margarida Poly- 
print 55, ou 55 CPS, bem como impresso- 
ras matriciais com "near letter quality"; o 



Poly 105 WP pode tamMm utilizar maqui- 
na de escrever eletr&nica como sai'da de im- 
pressed. E a impressora Polyprint 90 nab 6 
uma impressora de margarida, 6 uma impres- 
sora matricial bidirecional de 90 CPS (...). 
Ricardo de Deus dos Santos 
Polymax Informatica S. A. 

Inicialmente, queremos agradecer peia 
atenta leitura de nossa MICRO SISTEMAS, 
bem como pela gentileza de externarem o 
retorno provocado por nossa reportagem 
Edi tores de texto. Go star (am os, entretanto, 
de destacar que MICRO SISTEMAS re iter a- 
das vezes procurou fabricantes e software- 
houses, inclusive a Monk, para que colocas- 
sem seus produtos a nossa disposicib para 
eventual analise e futures reportagens. Infe- 
lizmente, nem todos compreenderam o al- 
cance de nossas sohcitacdes. Assim, para efe- 
tuar a reportagem e analise em questao, uti- 
lizamos o material a que tivemos acesso. 

Aproveitamos esta oportunidade para en- 
fatizar, mais uma vez, uma ideia simples que 
resume a nossa atuacao editorial: os fabri- 
cantes e software-houses criam produtos pa- 
ra os usuarios de microcomputadores, e 
MICRO SISTEMAS, com uma visao crftica 
de usuario, pois tambem o somos, repassa 
para seus leitoresAisuirios as caracterfsticas 
que realmente interessam ao consumidor fi- 
nal. Portanto, abordamos aquilo que vive- 
mos e ao qual temos acesso, sempre com a 
preocupacio de ampliar e aprofundar estas 
informacdes. 
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Atualmente MICRO SISTEMAS e uma 
das mehores publicacdes na a>ea de micro- 
computadores. Para ficar excelente, deveria 
dar uma maior atencab ao hardware de mi- 
cros, e artigos como os que sai'ram em MS 
n° 30 deveriam ser f ixos (...). 

Gostaria de propor alguns pro jet os em 
hardware que seriam interessantes: aciona- 
mento de gravador para TK-83/85 e CP-200; 
gerador sonoro; bip (tecla acionada); inter- 
faces (IN /OUT); conexao para cartuchos 
EPROM; gravador de EPROM no TK; ex- 
panses de memoria; conversor AD/— DA; 
interface para cassete com compensacab au- 
tomatica de volumes; alta resolucab grafica 
etc., sendo que o gravador de EPROM e a 
conexao para cartuchos de EPROM abriri- 
am um vastissimo campo para software uti- 
litario. 

Valerio F. Laube 
Schroeder-SC 

Muito bom, Valerio. Suas propostas sao 
objetivas e interessantes. N6s endossamos a 
sua lista e a repassamos agora para nossos 
lei to res e colaboradores. S6 tern um por em: 
expansao de mem6ria e alta resolucab gra- 
fica nos ja publicamos em MS n? 37, uma 
edicio praticamente voltada para o hard- 
ware. De uma espiada, ok? 
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Ha muito tempo venho lendo MICRO 
SISTEMAS e, creiam, foi muito util para 
mim no trabalho, na escola e tambem na 
criacab de programas. As dicas sobre progra- 
macab, as explicates tecnicas e os truques 



que podem ser efetuados em cada micro fo- 
ram publicados de forma bem simples e for- 
mam um arsenal de ideias que nenhuma em- 
presa fabricante de micro conseguiria colo- 
car no manual de seu equipamento. 
Joab do Prado Arnoldi 
Sao Paulo -SP 



Sou possuidor de um TK-85 e estou sa- 
tisfeito com o 6timo nfvel desta revista, 
principalmente pela atencab que dispensam 
aos usuarios da linha Sinclair, como, por 
exemplo, com o sensacional MICRO BUG: 
finalmente surgiu um poderoso instrumento 
para se trabalhar com a famosa linguagem 
Assembler, desvendando seus misteVios e pe- 
culiaridades. 

MICRO BUG trouxe novos conhecimen- 
tos para mim e para muitos, que apenas 
compilavam os programas em Assembler de 
revistas, sem entender o real funcionamento 
dos mesmos. Parabenizo o CPD de MICRO 
SISTEMAS e seu coordenador Renato De- 
giovani pelo excelente trabalho desenvolvi- 
do, e espero que este nfvel alcancado suba 
ainda mais. 
Esdras Prado 
Santos-SP 



L 



VIAGEM FANTASTICA 



7 



Venho por meio desta informar-lhes que 
o programa Viagem fanta'stica, publicado em 
MS n9 34, pag. 37, esta com erro. Este erro 
ocorre na segunda parte do bloco, pois, 
quando digitado, simplesmente invade a se- 
gunda linha REM, juntando-a com a primei- 
ra. Peco por favor que me enviem ou publi- 
quem aonde esta o erro para que eu possa 
rodar o programa, que parece ser um jogo 
muito interessante. 

Gostaria de fazer tambem, mais que uma 
sugestab, um pedido, nab s6 em meu nome 
mas em nome daqueles que estab querendo 
ingressar neste universo maravilhoso que e a 
Informdtica: gostaria que implementassem 
uma secab voltada para a irea de empregos, 
onde n6s iniciantes pudessemos saber em 
que firmas poderfamos estagiar. Actio um 
descalabro uma em presa pedir que um esta- 
giirio tenha experiencia anterior, pois se 
ninguem nos da uma chance, como vamos 
adquirir experiencia? 

Sugiro tambem que facam um tira-tei- 
ma com o programa Serra pelada, pois este 
ainda apresenta defeitos. Como exemplo, 
citarei apenas um: quando entramos no ar- 
mazem e compramos uma picareta, ou ou- 
tro objeto, o programa di a mensagem "O 
dono e muito forte e nab vai go star disso". 
Acho isso um erro, afinal, a mercadoria ja" 
foi comprada e nem estamos mais dentro do 
armazem. 

Gostaria tambem de parabenizar-lhes 
pelo projeto MICRO BUG, pois sei que 6 
uma iniciativa pioneira (pelo menos em ter- 
mos de Brasil) e, como nab poderia deixar 
de ser, os pioneiros sab, nada mais nada me- 
nos, do que os representantes da melhor, 
primeira e mating fvel MICRO SISTEMAS. 
Carlos Eduardo Lange 
Sab Bernardo do Campo-SP 

Antes de mais nada, Carlos, a equipe 
agradece os elogios. Com relacab, no entan- 
to, ao programa Viagem fanta'stica, nfo 
existe nenhum erro, exceto o publicado na 
Mensagem de Erro de MS n? 37, que re- 
comenda a eiiminaclo da ultima linha do 
bloco em Assembler, a linha 16850, que foi 



publicada indevidamente. Nab hi mais ne- 
nhum erro, e o programa foi testado em nos- 
so CPD (e, as vezes, quando da um tempi- 
nho, nos tambem viajamos com este jogo). 
Confira cuidadosamente a sua digitacab e 
f aca exatamente como o texto manda, prin- 
cipalmente com refertncia a criacab de li- 
nhas REM, com os carac teres que estao in- 
dicados. Depois nos escreva contando as 
suas sensatffes nesta viagem, ok? 

Com relacao ao seu pedido/sugestao, ele 
esta anotado, mas nab depende exclusiva- 
mente de n6s, mas muito mais das empresas 
que utilizam programadores. Mesmo assim, 
sua sugestab ja faz parte da nossa pauta de 
sugestdes de leitores, para analise sobre a 
possibilidade de realizacab. Nio se preocupe 
que todas as sugestdes que recebemos sab 
discutidas e analisadas e, quando o leitor 
menos espera, la esta sua sugestab concreti- 
zada. Aguarde. 

Quanto ao programa Serra pelada, tam- 
bem nio hi erro. E aceite o desaf io que este 
adventure faz: garimpe mesmo ate encon- 
trar o ouro! 
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Quero comunicar-lhes o meu crescente 
entusiasmo com MICRO SISTEMAS. Sou 
usuario de um TK-85 e esta revista vem 
dando grandes presentes para mim e para os 
outros usuarios. Foi uma ideia sensacional 
o MICRO BUG, e espero que continuem 
com ele ate" atingirem todos os objetivos 
propostos no primeiro artigo do MICRO 
BUG (em MS n9 31), como o disassembler, 
o compilador etc. 

Achei tamMm excepcional o Editor 
Assembler, publicado em MS n° 33, de Luiz 
Imbroisi Filho. Para n6s, iniciantes em lin- 
guagem de maquina, artigos e programas co- 
mo estes que citei sao de grande ajuda. Meus 
parabens aos au tores. Porim, $6 senti falta, 
no Editor Assembler, da possibilidade de 
utilizacab de labels, porque 6 enfadonho ter 
que calcular varios enderecos relativos e ab- 
solutos (CALLs, JOs e JRs da vida). Fica 
aqui a sugestab para o Luiz ou outro leitor 
que tenha conhecimento da estrutura do 
programa. Seria interessante tambem se 
transformassem o Editor Assembler em um 
modulo do MICRO BUG. 
Alexandre Pfeifer 
Divin6polis-MG 

Sendo esta a melhor revista sobre micros 
no Brasil, deixo a minha sugestab : gostaria 
que, alem de micros nacionais, voces publi- 
cassem tamMm alguma materia sobre os im- 
portados, ja que eu, e muitas pessoas, sen- 
timos a falta de uma edicab 'Brasileirai tra- 
tando deste assunto e, por isso, somos obri- 
gados a recorrer a publicacdes estrangeiras. 
Marco Antonio Milan i 
SSo Paulo-SP 

(...) que voces pensam de um artigo so- 
bre monitores? Do mesmo tipo do que voces 
ja fizeram com computadores, com uma ta- 
bela de caracterl'sticas, conteudo, cor, pre- 
co em ORTN etc. 
Andri G. Velloso 
Rio de Janeiro-RJ 



Envie suas sugestdes para MICRO 
SISTEMAS. Elas serio a no tad as em nossa 
pauta e procuraremos, na medida do 
possfvel, viabiliza-las. 



Voce vai precisar de muita perspicacia para sair vitorioso deste incr/'vel jogo desenvolvido para micros 
da linha SINCLAIR. Atencao: voce esta* diante de um mini campo de batalha, cuidado com o inimigol 




GO, um desafio milenar 



Wa/dir Ferreira de Arruda 



Numa interpretaclo bem oci- 
dental, podemos dizer que 
este 6 um wargame de 3000 
anos, }& que foi cultivado en- 
tre os chineses, tanto como jogo de adi- 
vinhacao como desafio intelectual (usa- 
do ate" para fins poh'ticos), desde os re- 
motos 2300 anos A.C. 

Este jogo foi desenvolvido para ser jo- 
gado por duas pessoas, com micro exer- 
cendo apenas a funcao de monitor. A 
partida tern infcio assim que os jogado- 
res escolhem as suas pedras: pretas ou 
brancas, sendo que as brancas possuem 
o privilegio de iniciar. O objetivo de 
ambas as pedras e" cercar as inimigas (as 
brancas devem cercar as pretas e vice- 
versa) e conquistar o maior numero pos- 
sfvel de territdrios. O tabuleiro possui 
361 cruzamentos de linhas, portanto, 361 
pontos, e cada um destes pontos 6 con- 
siderado um territ6rio. 

A cada pedra inimiga cercada, ganha- 
se 2 pontos, e a cada territorio conquis- 
tado, apenas 1. Caso uma pedra seja co- 
locada em territdrio inimigo, este ultimo 
perde os pontos que foram conseguidos 
em virtude desta conquista, pois houve 
uma invasao de territ6rio. E inicia-se as- 
sim uma nova luta para expulsar o inva- 
sor. Se acontecer de um jogador colocar 
uma pedra sua em um territdrio que ji 
lhe pertencia, perdera" 1 ponto, alem de 
disperdi?ar uma pedra numa jogada inu- 
til. 

Cada jogador tern direito a 180 pedras 
e, ao te"rmino destas, vencera" a partida o 
jogador que obtiver mais pontos. Por is- 



so, 6 bom evitar jogadas em territ6rjos 
perigosamente cercados. Eis um exem- 
plo de situa?ao perigosa: se jogarmos em 
um territ6rio ganho pelo inimigo, conse- 
guiremos tirar os pontos ganhos por ele, 
mas em compensacao gastamos uma pe- 
dra. Se este territorio valer apenas 1 pon- 
to no tabuleiro, qualquer lugar do tabu- 
leiro que o inimigo coloque a sua pedra 
implicara na eliminacao de nossa pedra, 
quer dizer: o inimigo recupera os seus 
pontos e nos perdemos uma pedra. Mas 
se o territ6rio a ser conquistado for 
maior, poderemos ter uma boa luta para 
reconquista-lo. 

As pedras inimigas podem ser cerca- 
das na quantidade desejada e em qual- 
quer direc^io. Para que uma ou mais pe- 
dras sejam consideradas mortas. estas 
deverao estar totalmente cercadas, ou 
sem nenhum territdrio entre elas. 

Qualquer pedra pode ganhar a quan- 
tidade de territorio que desejar, basta o 
inimigo permitir. Tudo ir£ depender da 
forma de ataque e defesa de cada um, 
afinal de contas, este 6 um jogo de estra- 
te"gia. Cada jogador deve desenvolver 
sua pr6pria tatica. seja partindo para ci- 
ma do inimigo ou apenas conquistando 
territ6rios. 

O PROGRAMA 

Antes de comerilarmos o programa 
propriamente dito, e" interessante que se- 
jam esclarecidos alguns aspectos impor- 
tantes da digita^So dos blocos Assembler. 

A execucao do programa em Assem- 



bler tern que funcionar na modalidade 
FAST pois utiliza o par de registros IY. 

Para a criacao da linha 20 REM , 

com 2520 bytes, deve ser utilizado o 
montador de REM publicado em MICRO 
SISTEMAS nP 30 ou o MICRO-BUG. £ 
importante observar que a linha REM 
deve ser a primeira do programa e os seus 
361 bytes tern que ser o caracter ponto 
( . ) . Portanto, se for utilizado o montador 
de REM, faz-se necessario dar o coman- 
do direto POKE 16542,27 antes de criar 
a linha REM, pois assim o montador ao 
hive's de criar UNS criard PONTOS. Caso 
esta modifica5ao nao seja feita, deve ser 
criada entao a linha 20 REM, com todos 
os 2520 UNS, digitando em seguida os 
blocos em Assembler, e ao termino des- 
tes comandar diretamente (via teclado) 
RAND USR 18045 (e claro que tendo a 
certeza de digitacao correta). 

No momento em que se for criar a li- 
nha REM, seja com a utilizacfo do mon- 
tador de REM ou do MICRO-BUG, 6 
muito importante que o comando RAND 
USR 18045 seja dado apos a digitacao 
dos blocos em Assembler, mas tambem 
apenas neste momento, depois nao mais 
sera" necessario. Isto se deve ao fato de 
que o comando RAND USR 18045 jo- 
ga pontos (.) nos primeiros 361 bytes, e 
branqueia os proximos 24 bytes ap6s os 
361 pontos. Estes 24 bytes sao utiliza- 
dos como contadores e como controle 
de partidas e os 361 bytes como matriz 
e montagem da tela. 

A parte em BASIC nSo tern nenhum 
segredo, basta apenas digitd-la sem maio- 
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res detalhes. unico particular 6 que a 
partir da linha 9000 do BASIC foi desen- 
volvido um programa que serve para con- 
ferir a parte em Assembler que foi digj- 
tada. A sua utilizacao e simples: digite 
GOTO 9000 que o programa pedira" o 
endereco initial e o final do bloco que 
se deseja conferir. Apesar de se perder 
um pouco de tempo, 6 bom utilizar este 
programa para evitar surpresas na hora 
de executar o Assembler. 

O tabuleiro do GO possui 19 linhas 
por 19 colunas, ambas marcadas com as 
letras de A ate" S. Para se colocar uma 
pedra numa determinada posicao, deve- 
se digitar linha/coluna, por exemplo: 
linha H e coluna I, digitando-se entao 



Ffl e ENTER. Para deletar n5o se deve 
usar SHIFT DELETE e sim o carater 
ponto (.)• 

O programa controla de quern e a vez 
de jogar atraves do controlador de pon- 
tos. Jogara aquele que tiver a cor de sua 
letra invertida, ou seja, se a vez for das 
pretas (x), a letra x ficard invertida. To- 
dos os lances sao conferidos pelo progra- 
ma, dando mensagem de erro na posicao 
21,0. Para cada lance correto 6 pedido 
uma confirmacao, a qual deve-se res- 
ponder S ou N. Se a resposta for S, o 
lance e" efetuado, se for N a pedra 6 reti- 
rada do tabuleiro, sendo portanto solici- 
tada uma nova jogada. £ importante ob- 
servar que todas as perguntas feitas pelo 



GO em BASIC 



3©BREM URLDIP F. RRRUDR 

05/06/84 
40 REM *-«-#-*-*-*-*-*-*-*-*-* 

* * 

* ESTE PR0GRRMR * 

* E" C-EDICRDO ROS MEU5* 

* FILHOS BRUNO/DENIS * 

* * 

50 G05UB 1600 

90 cflNC USP 16900 
100 LET U=U5R 18073 
110 IF UoO THEN GOTO 1000 
115 PRND U5P 16900 
120 GOSUB 500 
130 POKE 18597 .52 

140 LET UrUSP 18600 

150 IF U< ■© THEN GOTO 2000 

200 POKE 16360. (PEEK 16880) +1 

230 FR5T 

240 GOSL'B 500 

250 GOSL'B 500 

260 SL0U 

270 POKE 16597,61 

280 LET U=U5R 18600 

290 IP u THEN GOTO 2000 

340 POKE 16379, (PEEK 16379) +1 

370 FRST 

380 G05U6 300 

390 GOSUB 500 

400 SLOU 

4.05 IF PEEK 16679 >sl80 THEN GOT 
1700 

410 C-OTQ 130 

500 rem am 

510 PRND QSR 

540 PRINT AT 
6+PEEK 16891; 

= 50 PRINT RT 10. 26. PEEK 16890*2 
56+PEEK 16339." 

555 PRINT RT 14. 26. PEEK 16880 

•\RT 15,26. PEEK 16879." " 

580 PETURN 

300 cem H 

310 PRND USR 16900 

820 RflND USR 16986 

830 RRND USR 16957 

840 RRND USP 17396 

350 RRND USR 18957 

860 PETURN 
1000 PRINT RT 21,0; "(S/N) - PRPR 

C0NTINURR fl PRRTIDfl" 
1010 IF INKEV*='S" THEN GOTO 104 


1020 IF INt\EY$ = "N" THEN GOTO 110 


1030 GOTO 1000 
1040 LET NPaPEEK 16879 
1050 LET NB=PEEK 18880 
1055 GOSUB 1600 
1060 IF NB=NP THEN GOTO 115 
1070 GOSUB 1600 
1080 GOTO 250 
1100 GOSUB 1600 
1110 RRND USP 18045 
1120 GOTO 115 
1600 PRINT RT 21,0;" 

1610 PETURN 
1700 GOSUB 1600 

1705 GOSUB 500 

1706 POKE 16413 
1710 PRINT RT 22.0; 



iase 

26. PEEK 16392-^r 



6892 

1740 RRND USP 13045 

1750 FOP N=l TO 40 

1760 NEXT N 

1770 IF X>0 THEN PRINT RT 21,2: 

RS PRETR5 '.-'ENCEPRM" 

1780 IF x<0 THEN PRINT RT 21-2. 

R5 BRRNCRS UENCERRM" 

1790 IF X=0 THEN PRINT RT 21,2. 

EMPflTRRflM" 

1800 PRINT RT 22 .4; 

S3" ; RT 22.4. FIM DE PP,PTi:w' 

1310 IF XNKEYfta"" THEN GOTO 1800 

1320 STOP 

£OQ<3 PRINT RT 21 . : "B-SRUE B-P'-' 

N B-5TOP" 

2010 IF XNKEYta"P" THEN STOP 

2020 IF INK.Ey$= R" THEN RUN 

2030 IF INK.E-.-S = "S" THEN GOTO 205 



2040 GOTO 2010 

2050 PRINT RT 21.0, RPERTE OURLO 

UER TECLfl P/ GRRUflR" 

2060 PRU5E 4E4 

2070 cR'.'E C-B' 

2030 PUN 

9000 PRINT ENDERECO INICIRL = 

9010 INPUT I 
9020 PRINT I 
9030 PRINT "ENDERECO FINRL = " 

9040 INPUT F 

9050 PRINT F 
906O LET 1=1-1 

9065 LET hj= 

9030 j,ET H$:'r"""""""i"""""" 



9090 LET B» = "| 
9100 LET C*s"fc 



rofl i_ 

6990 



^IH DE P 



1720 L! 



=PEEK. 16889+256*PEEK 1 
1730 LET 0=PEEK 16891+256+PEEK 1 



91C5 GOSUB 9550 

9110 FOR C=l TO 8 

9120 LET R=PEEn H + C 

9130 LET G = INT (R/16' 

9140 LET R=iR-16*0) +28 

9150 LET 0=0+28 

9160 LET H$=H$ + CHR$ (Q) +CHR* (P ) 

+ " 

9170 LET U=I+C 

9180 IF U=F THEN GOTO 9260 

9190 NEXT C 

9200 PRINT RT 21,0, ENTER 

9210 INPUT P* 

9215 PRINT RT 12,6,B$ 

9220 PRINT RT 12,0;I+1,RT 12,7, H 

S 

9230 LET I=U 

9240 LET H$="" 

9250 GOTO 9110 

9260 PRINT RT 21,0; ENTER 

9270 INPUT P$ 

9275 PRINT RT 12.6.BJ 

92S0 PRINT RT 12,0,I+1,RT 12,7, H 

S 

9300 PRINT RT 21,0; "(S/Ni - PRRR 

OUTRO BLOCO" 

9310 IF INr,EY$ = "S" THEN GOTO 934 


9320 IF XNKEYfV'N" THEN STOP 

9330 GOTO 9310 

9340 CLS 

9350 GOTO 9000 

9550 PRINT RT 11.6, RS 

9560 PRINT RT 12,6.B$ 

9570 PRINT RT 13,6. C* 

9530 PETyP'; 



programa deverao ser respondidas com 
SouN. 

Nao se impressione se logo no primei- 
ro lance as brancas marcarem 360 pon- 
tos; e como se elas ganhassem todos os 
territ6rios restantes no tabuleiro, mas, 
assim que as pretas efetuarem o pr6xi- 
mo lance, estes pontos voltam a zero. 

jogo pode ser interrompido a qual- 
quer instante . Para isto basta que na ho- 
ra de serem dadas as coordenadas do 
lance, digite-se um asterisco (*)• Apare- 
cerao entao na posicao 21 ,0, tres op?5es: 
S-SAVE (grava o programa); R-RUN 
(pergunta se e para continuar a partida 
ou comecar uma nova), caso se decida 
por uma nova partida, todas as pedras 
existentes no tabuleiro serao retiradas e 
os respectivos contadores zerados; se a 
opcao for para continuar, basta observar 
de quern e a vez de jogar atraves das le- 
tras X ou O invertidas; e P-STOP (encer- 
ra a partida). 

Por fun, para que os jogadores te- 
nham uma perfeita nocao do terreno em 
que vao disputar esta incrivel batalha, 
eis uma breve descri?ao do que cada blo- 
co em Assembler executa: bloco 1 - im- 
pressao do tabuleiro e criacao da tela; 
bloco 2 - detecta pedras mortas; bloco 
3 - conecta pedras pretas; bloco 4 - 
conecta pedras brancas; bloco 5 — elimi- 
na pedras mortas; bloco 6 - prepara a i 
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Seu micro 
merece 
Assistencia 

Tecnica 

ASSIST. 

E voce merece a tranquilidade de contar 
com a mais eficiente equipe tecnica do Rio. 
tremada nas fabricas, e recomendada pela 
Petrobras. Furnas, Light e Bolsa de Valores. 
A ASSIST olerece tambem diversas opcoes 
para contratos anuais de assistencia tecni- 
ca, que garantem o maximo ao seu micro. 

Esemcustarmais por isto. 

Os micros Spectrum, Prolbgica. Digitus 
e muitos outros, alem de video-games e com- 
patibilizacao de perifericos. tern na ASSIST 
uma assistencia tecnica aprovada petos pr6- 
prios fabncantes. Alem disto. voce tern total 
assistencia aos micros importados: Sinclair, 
TRS-80. Apple e PC IBM. 

Se voce tern um micro e quer o maximo em 
assistencia tecnica, nao pense duas vezes: 
pense ASSIST 

ASSIST: A maxima solucao para seu micro. 



Assessoria de Sistemas e Engenharia Ltda. 

Av. Beira-Mar. 406 - Gr. 805 - Castelo 
Tel 262-5763 



GO, UM DESAFIO MILENAR 



ie >00 

16903 

15915 

16924. 
16932 

16940 
16946 
16956 
16964 
16972 
16950 



i69ee 

16994 
17002 
17010 
17016 
17026 
17034 
17042 
17050 
17053 
17066 
17074 
17082 



17089 
17097 
17105 
17113 
17121 
17129 
17137 
17145 
1-153 
17161 
17169 
17177 



17184 
17192 
17200 
17208 
17216 
17224 
17232 
17240 
17248 
17256 
17264 
17272 

17279 

17287 
17295 
17303 
17311 
17319 
17327 
17335 
17343 
17351 
17359 
17367 
17375 
17383 
17^91 



17396 
17404 
17412 
17420 
17428 
17436 
17444 
17452 
17460 
17468 
17476 
17484 
17492 
17500 
17508 
17516 



17518 

17526 
17534 
17542 
17550 
1755S 
17566 
17574 
17582 
17590 
17J93 
1760C 



20 0C 
13 3E 
23 3E 
06 13 
19 77 
F3 3E 
23 3C 
77 20 
11 81 
23 1ft 
10 FD 



2ft 0C 
11 22 
23 7E 
34 Cft 
23 10 

41 FE 
43 3E 

42 3ft 
42 3E 
41 C3 
41 CD 
00 Cft 
ID 32 



22 FD 
7E FF 
7E 01 
7E DF 
7E 21 
00 32 
lfi 43 
FE IB 
C3 D3 
FE IE 
Cft 1ft 
42 3E 



22 FD 
7E FF 
7E 01 
7E DF 
7E 21 
00 32 
79 43 
FE IB 
C3 3-* 
FE ID 
Cft 79 
43 3E 



3E 00 
3fi F0 
00 00 
32 EE 
32 EE 
00 19 
13 13 
F8 06 
EE C3 
ED SB 



40 23 
ft5 23 
80 77 
3E Q6 
11 0D 



30 
77 



41 
FE 



ED SB 
C9 2ft 
19 22 



2fi 0C 
11 22 
23 7E 
ID Cft 
44 10 
0D 20 
Cft F4 
44 3E 
41 77 
3fl ED 
7E C3 
41 3ft 
CD 98 
Cft 62 
32 EC 
15 44 



22 FD 
7E FF 
7E 01 
7E DF 
7E 21 
IB 32 
0B 45 
3D Cft 
45 FE 
44 FE 
Cft 0B 
FE IE 



0C 40 
40 0E 

— 10 
0D 30 



40 3E 
00 19 
FE 3D 
ft6 42 
FD 0D 
ID Cft 
IE 32 
ED 41 
IE 77 
76 42 
20 43 
76 42 
EC 41 



41 FD 
FE 3E 
FE 3E 
FE 3E 
FE 3E 
ED 41 
FE IE 
Cft 1ft 

42 FE 
CS C3 

43 FE 
IB 32 



41 FD 
FE 3E 
FE 3E 
FE 3E 
FE 3E 
ED 41 
FE ID 
Cft 79 
43 FE 
CS C3 
43 FE 
IB 32 

32 FF 
41 47 
00 Fft 
41 C3 
41 2ft 
11 81 
23 BE 
0E 23 
D7 43 
FF 41 
30 EE 
Cft E8 
FF 41 
F3 41 
F3 41 



3E cC 
3C 77 
11 0D 
77 11 
00 19 
06 13 
FB 23 
11 22 
13 06 
Fft 06 
F0 C9 



00 32 
0E 13 
Cft 8B 
10 F2 
20 E8 
5ft 42 
ED 41 
FE 00 
3E ID 
3E ID 
3fi ED 
3E ID 
C3 76 



2ft FD 
Fft EE 
Fft F9 
Fft 04 
Fft 0F 
C9 FE 
C8 C3 
43 FE 
IB Cft 
E0 42 
IE C8 
ED 41 



2ft FD 
Fft 4D 
Fft 58 
Fft 63 
Fft 6E 
C9 FE 
CS C3 
43 FE 
IB Cft 
3F 43 
ID C8 
ED 41 

41 32 
3fi EF 
9D 43 
ft2 43 
0C 40 

40 0E 
Cft C3 
10 FD 
3E IB 
13 ED 

41 C3 
43 2ft 
19 22 
ED 5B 
C9 



77 06 
10 FB 
00 19 
14 00 
3C 10 
3E fiS 
3E 80 
00 19 
13 13 
0E 23 



EC 41 
06 13 
42 FE 
06 0E 
3ft EC 
C3 7F 
CD CI 
Cft 76 
32 EC 
32 ED 
41 FE 
77 3E 
42 



41 FD 

42 FD 

42 FD 

43 FD 
43 3E 
IB Cft 
D0 42 
IE C3 
lfi 43 
FE IB 
C3 E6 
C9 



41 FD 
43 FD 
43 FD 
43 FD 
43 3E 
IB Cfl 
2F 43 
ID CS 
79 4 3 
FE IB 
C3 47 
C9 



00 


42 


41 


B8 


3E 


34 


3E 


3D 


11 


82 


13 


06 


43 


10 


0D 


20 


12 


DF 


53 


FP 


B6 


43 


PI 


41 



40 3E 
00 19 
FE IB 
39 44 
ED 06 
E3 3fi 

43 C3 
ID 32 
C3 0B 

41 FE 
10 44 
ED 41 
45 3fi 

44 C3 
41 3fl 



00 32 
0E 13 
Cfi 2fi 
FE IE 
0E 23 
EC 41 
13 46 
EC 41 
44 CD 
33 Cfl 
3E ID 
77 C3 
ED 41 
15 44 
ED 41 



Fl 41 

FF 41 



EC 41 
06 13 
44 FE 
Cfl 54 
10 FD 
FE ID 
CD 6E 
3fl ED 
ID 45 
48 44 



41 FD 
FE 3E 
FE 3E 
FE 3E 
FE 3E 
ED 41 
FE ID 
11 45 

33 Cfl 

34 Cfl 
45 FE 
Cfl 11 



2fl FD 
Ffl 9B 
FA B7 
Ffl D3 
Ffl EF 
C9 FE 
Cfl 0B 
FE IE 
17 45 
0B 45 
3D Cfl 
45 FE 



32 


EC 


L0 


44 


FB 


33 


it 


ID 


" 


c: 


41 


KD 


44 


PL> 



44 FD 
44 FD 

44 3E 
34 Cfl 

45 FE 
Cfl 11 

c: -: 

FE ID 
11 45 
33 Cft 



Blocos em Assembler 



1761* 
17622 
17630 
17638 
17646 
17654 
17662 
17670 
17678 
17686 



17693 
17701 
17709 
17717 
17725 

: — ::- 

17741 
17749 
17757 
17765 
17773 
l"cl 
17789 
17797 
17805 
17813 



17816 
17324 
17832 
17840 
17848 
17856 
17864 
17872 
17008 
17388 
17896 
17904 
17912 
17920 
17928 
17936 



17939 
17947 
17955 
17963 
17971 
17979 
17987 
17995 
18003 
16011 
18019 
18027 
18035 
18043 



1.3045 
1805 3 
18061 
18069 



18073 
13 03 1 
18089 
L0097 



18140 
18143 
18156 
18164 
18172 
18180 
18183 
18196 
18204 
16212 



13220 
1525 3 
18236 
15244 
18252 
10860 
18263 
16276 



17 45 C3 85 



0B 45 
3D Cfi 
45 FE 
44 FE 
Cfi 0B 
FE IE 
17 45 
ED 41 
C9 3E 



FE 
13 



33 Cft 

34 Cfi 
45 FE 
CO 11 
C3 95 
C9 3E 
33 32 



44 FE 
Cfi 0B 
FE IE 
17 45 
0B 45 
3D Cfl 

45 FE 
44 3E 
IE 32 
ED 41 



22 FD 41 
7E FF FE 
7E 01 FE 
7E DF FE 
7E 21 FE 
00 32 ED 
92 45 FE 
IE Cfi 92 
3D Cfi 92 
45 FE IE 
45 FE 3D 
Cfi 92 45 
C3 3C 45 
FE 33 Cfi 
92 45 C3 
ED 41 C9 



FD 2fi FD 

3E Ffi 4fl 

3E Ffl 5C 

3E Ffl 6E 

3E Ffl 80 

41 C9 FE 

33 Cfl 92 

45 C3 2C 

45 FE 33 

Cfl 92 45 

Cfl 92 45 

FE IE Cfl 

FE 3D Cfl 

92 45 FE 

44 45 3E 



34 CO 
45 FE 
CO 11 
C3 8D 
FE ID 
11 43 
33 CO 
ID 32 
ED 41 
C9 



41 FD 

45 FD 
45 FD 
45 FD 
45 3E 
3D Cfl 
45 FE 
45 FE 
Cfl 92 
C3 34 
FE 33 
92 45 
92 45 
IE C<= 
33 32 



22 FD 
7E FF 
7E 01 
7E DF 
7E 21 
00 32 
0D 46 
ID Cfl 
34 CO 
46 FE 
45 FE 
Cfl 0D 
C3 B7 
FE 33 
0D 46 
ED 41 



3E 00 
32 01 

40 11 
13 23 
FE ID 
0E 83 
FF 41 
22 F7 
Fl 41 

41 ED 
41 C9 
53 FF 
01 42 
38 46 



41 FD 2fl 
FE 3E Ffl 
FE 3E Ffi 
FE 3E Ffl 
FE 3E Ffl 
ED 41 C9 
FE 33 Cfl 
0D 46 C3 
0D 46 FE 
ID Cfl 0D 
34 Cfi 0D 
46 FE ID 
45 FE 34 
Cfi 0D 46 
C3 BF 45 
C9 



FD 41 FD 
C5 45 FD 
D7 45 FD 
E9 45 FD 
FB 45 3E 
FE 34 Cfl 
0D 46 FE 
A7 45 FE 
33 Cfl 0D 
46 C3 AF 
46 FE 33 
Cfl 0D 46 
Cfl 0D 46 
FE ID Cfi 
3E 33 32 



32 FF 
42 32 
22 00 
7E FE 
Cfi 71 
10 FD 
22 F5 
41 2fi 
19 22 
5B F3 
ED 5B 
41 C3 
13 ED 



41 32 
02 42 
19 0E 
IE Cfi 
46 10 
0D 20 
41 2fl 
F5 41 
F9 41 
41 19 
FF 41 
38 46 
53 01 



00 42 
2fi 0C 
13 06 

65 46 
F2 06 
E8 2fl 

01 42 
ED 5B 
2fi F7 
22 FB 
13 ED 
ED SB 
42 C3 



06 FF 3E IB 11 81 40 13 

12 10 FC 06 6fi 3E IB 13 

12 10 FC 06 18 3E 00 13 

12 10 FC C9 



01 6A 01 21 82 40 3E 34 

ED Bl 78 FE 00 CO 79 FE 

00 CO 01 6fl 01 21 82 40 

3E 3D ED Bl C9 



80 fiC 

B4 B3 
16 27 

jo ie 

80 80 
80 80 
3C 26 
IB 00 
32 2E 
39 20 



80 B4 
B9 64 

37 26 

35 37 
Bl 06 
34 00 
31 29 
26 37 

36 37 

38 26 



00 


80 


80 


B5 


00 


-«' 


80 


B4 


)3 


2o 


26 


30 


80 


39 


26 


3rt 


B ■ 


08 


flfl 


R8 


10 


3D 


00 


16 


38 


3/ 


00 


?B 


3 7 


30 


29 


86 


j. 4 


30 


2E 


38 


30 


lb 


IB 


It 



11 0C 47 lfl 

47 13 lfl FE 

13 lfl FE 31 

lfl FE 29 C2 

FE 2E C2 89 

37 C2 39 47 

FE 26 C2 89 

37 C2 39 47 



FE 3C C2 89 

26 C2 89 47 

C2 89 47 13 

89 47 13 10 

47 13 10 FE 

11 16 47 10 

47 13 lfl FE 

13 lfl FE 37 



18284. 
16292 
15 300 
103.08 
18316 



13324 
18332 
18340 
13 34 5 
15356 
18364 
16372 
10300 
15 355 
18396 

18404 

18412 

18420 
18428 
18436 
18444 

18452 
18460 
13468 
18476 

18454 

15492 
15300 
15503 
16516 



18520 
18528 
18536 
18544 
18552 
15560 
1 = 55 5 
18576 
18584 
16592 

18597 

15505 
18613 
10081 

1552 9 
18637 
18645 
18653 
18661 
15 55 9 
18677 
15655 
18693 
18701 
18-09 



18713 
18721 
18729 
18737 
18745 

13-5: 

18761 
18769 
18777 

15-5 5 
18793 
18801 
18809 
18817 
lid2^ 
18833 
15 54 1 
15549 
1535" 
13365 
18873 
15 3 31 
15359 
10097 
16905 
18913 
15921 
18929 
18937 

18943 

15951 
18959 
18967 
15 975 
18983 
18991 
18999 
19007 
19015 



C2 89 47 13 lfl FE 30 C2 

89 47 3A 1C 47 FE 32 Cc 

89 47 3A 28 47 FE 38 Ls 

89 47 C3 90 47 C7 F2 46 

3E 27 32 EE 3A F0 41 47 



3A EF 41 B8 



BD 32 
46 C3 

46 3E 
00 CD 

05 00 
CD F5 

00 CD 
F5 08 
CD 5B 
08 11 
6B 0B 

11 FC 
0E 01 

06 47 

01 16 

47 01 
16 11 
01 0A 

12 CD 
06 00 
CD F5 
00 CD 
F5 08 
CD 6B 



31 2E 
3B 26 

31 3A 
26 31 
2E 28 
34 28 
34 33 
38 3A 
29 26 
IB IB 

34 27 

48 11 
FE 17 
C3 3D 
4A 11 

32 A7 

49 7E 
A6 48 
D6 25 
48 01 
8D 49 
4D 59 
7E F5 
Fl El 
22 0E 



F4 46 
B2 47 
3D 32 
F5 08 
CD 6B 
08 11 
6E 0B 
11 EB 
0B 01 
F4 46 
01 16 
46 01 
16 0E 
01 03 
0F CD 
05 00 
CD F5 
00 CD 
F5 08 
CD 6B 
08 11 
5B OB 
11 21 
OB C9 



33 2D 
31 2E 
33 26 
2E 29 
26 34 
3A 35 
2B 2E 
26 00 
00 10 
IB IB 



27 CD 
D8 02 
CA 2C 
49 CD 
D9 02 
48 C3 
FE IB 
D6 25 
4F CD 
01 00 
C5 E5 
1C 28 
CD BB 
CI C9 
40 C9 



CA A8 
3E 34 
3E B4 
F4 46 
11 DC 
0B 01 
El 46 
01 16 

46 01 
16 08 
01 08 
0C CD 
0A 00 
CD F5 

00 CD 
F5 08 
CD 6B 
08 11 
6B 0B 
11 16 
0B 01 
1C 47 

01 18 

47 01 



26 00 
29 26 
00 2E 
26 35 
06 2F 
26 29 

37 32 
2F 34 

38 18 
IB 



19 49 
CD 11 
4A 32 
F7 48 
CD 11 
5E 49 
C2 FF 
47 3A 
F5 08 
CD 6B 
CD BB 
F7 CD 
02 23 
2A 0C 



47 3E 

32 EB 
32 EB 
01 18 

46 01 
16 02 
01 00 

04 CD 
09 00 
CD F5 

00 CC 
F5 0S 
CD 66 
08 11 
6B OB 
11 09 
0B 01 
OC 47 

01 16 

47 01 
IB 13 
01 05 
14 CD 

05 0.? 



2E 33 
28 34 

33 36 

34 38 
26 00 
26 26 
2A 00 
2C 26 
33 11 



CD F7 
49 D7 
A6 43 
C3 47 

49 D7 
CD C9 



49 
R7 



3fl 

4: 



01 00 

49 06 
11 D8 
D7 D7 
3E 12 
FA 4C 
C3 C0 
08 11 
6B 0B 
01 FA 
49 C3 
F5 08 
CD 6B 
CA AS 
40 : 3 
F5 08 
CD 6B 
CA IF 
A6 48 
D6 25 
48 01 
A8 43 
3A A6 
26 00 
FD 22 
25 4F 
22 C5 
C5 49 
40 19 



15 11 
19 3E 
02 CD 
11 D7 
D7 C9 
49 FE 
48 01 
58 48 
C3 7C 
6D 49 
D3 48 
11 66 
0B CD 
48 CD 
7C 49 
11 87 
OB CD 
4A FE 
D6 25 
4F CD 
01 00 
26 00 

48 D6 
2E 00 

■: : 49 

3E 13 

49 2A 
C6 00 
22 C7 



01 00 
48 01 
F7 48 
19 49 
21 A5 
06 00 
01 C9 
3E Afl 
D7 3E 
FE IB 



15 CD 
12 00 
FE 76 
CD 31 
48 7E 
0E 00 
11 B6 
D7 3E 
flfl 
C2 



B6 02 
00 D7 
11 49 
02 CD 
D6 25 
14 F2 

00 15 

01 0E 
49 D6 
FE 14 
01 00 

48 01 
F7 48 

19 49 

01 00 

46 01 
F7 48 
33 20 

47 3fl 
F5 08 
CD 6B 
11 00 
25 16 
06 13 
3fl 07 
99 26 
C3 49 
ED 52 

49 C9 

F5 08 
CD 6B 
CO 08 
40 C3 

20 C7 
C9 06 

02 CD 
B3 D7 

D7 3E B7 
C6 



11 05 
0B C3 
02 44 
BD 07 
20 FO 
40 19 



CD 11 

10 FD 
3E 00 

11 49 
FE 01 
4C 49 
CD F5 
00 CD 
25 FE 
F2 60 
15 CD 
0F 0O 
FE 75 
CD 31 
IS CD 
19 00 



F4 

fl- 



3 5 

:~ 
48 



11 00 
0B C3 
96 40 



BP 

10 



48 D6 
00 6F 
ED 5B 
11 81 



11 75 

0B CD 

48 CD 
0E 40 

49 77 
00 0E 
11 49 
3E B9 
D7 C9 

48 C3 08 40 



contagem de pontos; bloco 7 — conecta 
pedras brancas e pretas; bloco 8 - veri- 
fica o campo neutro das brancas; bloco 
9 - verifica o campo neutro das pretas; 
bloco 10 — faz a contagem dos pontos; 
bloco 1 1 - limpa o tabuleiro; bloco 12 



- verifica a continuacao da partida; blo- 
cos 13/14 e 15 - impressSo natela, no- 
me do jogo, quantidade de pontos, nu- 
mero de lances e tambe'm aponta de quern 
e" a vez de jogar; blocos 16/17/18 e 19 — 
rotina de entrada e conferencia de dados. 



Waldir Ferreira de Arruda estudou na Facul- 
dade de Sao Paulo (FASP), e trabalha atual- 
mente na Incremento Informa'tica S/A, onde 
ocupa o cargo de Analista de Producao. Co- 
nhece as linguagens COBOL, PL 1, Assem- 
bler e BASIC. 
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MICRO SISTEMAS. jane.ro/85 



//////////////////// 



Quanto custa 



i3TLiK3 OJii tVY±lI±i 



terminal remoto 

TR 207 num 
microcomputador 



Cobra 210? 



pim 
210? 




microcomputador Cobra 210 
e o terminal remoto TR 207 sao primos 
em primeirissimo graa Os dois foram pro- 
jetados para permitir a padronizacao dos 
processos industrials, com a consequents 
reducao do custo de fabricacao e do preco ao 
consumidor. 

O micro e o terminal utilizam a mesma mecanica, a mesma fonte de alimentacao e o mesmo 
video. Eles tern pequenas diferencas nas partes eletronicas e nas caracteristicas do teclado. 
Qual a vantagem dessa padronizacao para o usuario? 

A primeira e que um micro Cobra 210 pode desempenhar plenamente todas as runcoes de um 
terminal remoto, sem prejuizo de suas funcoes de microcomputador. 

A segunda e que um terminal remoto pode ser facilmente converado num microcomputador 

Cobra 210. processo de transfor- 
macao e simples e o custo e baixo. 

Como voce ve, quando compra 
um Cobra 210, voce leva um micro que 
tambem pode funcionar como terminal 
remoto. E quando compra um 
TR 207, voce leva um terminal remoto 
que pode ser transformado em 
micro, como num passe de magica. 
Isso nao e um bom negocio? 





NMK800 



CAMENTC S^ 



O CP7OT= 



im dos mais populares sistemas (operacionais para Micro- 
eoTRSDOS e seussim Mares, coi 
P/M, estao juntos agora no novisj 



uma popularidadeeqi 
io!MAJA800d< 



c i as mund i ai! 



i, passa a estar disponivel para urp so computad 
iteca de software jamais reunida, 
Jem um design queacompanha 
VI 



mlur 



e32X16Jbm 



istacai 



u reverse Sua CPU 



mars recentesten 

video, um mo 



80X24, 40X24, 64X1 6 
\m com dois drivi 



1/4" emputidos e possui 5 slots para conexao defexpansoes. Sua memo- 



lal possui 1 28K em RAM e 1 4K em EPROM, onde esta gravado 
o interprejador basic. teclado e do tipo qwert cam 7 tec l as e o numeri- 

:amaveis pelo us 



^ereduzi 



Aten 



»s sistemas operacionais ja mi 



oNA, 



meiroequipamei 



iro a operar comonovissimo CP/M 3. Oda 



g i ta l R e s e arch. 



ionalmente o N A J A 800 pode serequipado com placa de alta reso- 
T u c ao gr afica (640X240 pontos), disco rigido tipo Winchester, disco de 



, comu n tcacao s< 



trde voz^ 



fcffiffEK HOB. 



AV C0NT0RN0. 6048 - SAVASSI - BELO HORIZONTE - MG 

TEL: (031) 225-0644 

TELEX: (031 ) 3074 KEM - BR 



Velho Oeste, cowboys e gado sao as atracoes desse programa 
para equipamentos da I in ha TRS 80 III 



Um convite 
aos bons vaqueiros 



Marcos Fernando Ribeiro Ferraz 



Voce 6 o capataz e de repente se ve diante de um 
problema no rancho. Este e" o espirito do Curral, 
um jogo que consiste na tentativa de imobilizar 
dois animais fugitivos empregando estrategicamen- 
te os vaqueiros e obsticulos como cactus e rochas, colocados 
aleatoriamente na tela. numero de obstaculos gerados serf 
proportional ao nivel de diflculdade, isto e\ quanto mais obs- 
taculos, mais facil fica a captura dos animais. 

£ bom observar que, devido ao fato de os obsticulos serem 
colocados de forma aleat6ria, pode ocorrer de os animais fica- 



Curral 



10 CLEAR 300iVI-233iK-214iL-33tU-222IS-254iN-234iG0T0 160 

20 CLSiPRINT CHR*(23)iPRINT8384."|iINPUT"NIVEL (0-DIFICIL ■ 15- 

FACIL)"|LVHF LV<0 OB LV>15 THEN GOTO 20 ELSE CLSiPR INT865.STRIN 

0«<63.140)|IF0R 1-1 TO 14IP0KE 15360* I»64 , 191 IPOKE 13423* 1*64 . 19 

1INEXT IIPRINT827,CHR*,<191)," CURRAL ~,CHR»< 191 ) | 

30 PRINT80,NM*,-...~ I HSt,IPRINTa960.STHINQ*<63,131> l lP0KE 163B3. 

13HF0R 1-1 TO 10IP(I)-15834«HP0KE P<I),ViNEXT IU-HPOKE 16919 

.OiPOKE 16920,0 

40 H-<RND<3>-2>«64UF M-0 GOTO 40 ELSE A«13424*(RN0< 12 ) >«64iF0R 

1-1 TO RND<18)*8iP0KE A*I.LUF I-* OR 1-7 POKE A»I.32iNEXT I ELS 

E NEXT HA-A.I-liFOR 1-1 TO l3iA-A»MUF PEEK(A)-32 POKE A.LINEXT 

I ELSE NEXT I 
30 FOR 1-1 TO 211<I)-13420*RW>(90O)UF PEEK <B < I ) ) <>32 00T0 50 EL 
SE NEXT I 
60 FOR 1-1 TO RN0<LW«20)»10iA-13420»RN0(900)ilF PEEK(A)<>32 NEXT 

I ELSE POKE A.UiNEXT I IFOR 1-1 TO RND(3»LW)*5i A-13420»RNO(900> • 
IF PEEK(AX)32.NEXT I ELSE POKE A.KINEXT I 

70 FOR F-l TO 2iH-B(FHZ-RN0(4)iIF Z-1B(F)-H«64 ELSE IF Z-2i<F>- 
H-64 ELSE IF Z«3B<F)"M-1 ELSE B(F)-H-1 

80 M< F)«HINEXTFIPRINT83B. RIGHT*. (TIME*. 3 >,1P0-P< J) IX-REEK ( 14400) I 
IFX-0.90ELSEIFX"64P< J)»P( J )♦ 1 IOOT090ELSEIFX-32P < J>"P< J)-HOOT0 9 



rem totalmente isolados dos vaqueiros. Neste caso, resta ao ca- 
pataz rodar de novo o programa. Os movimentos dos vaqueiros 
sao controlados pelas quatro setas do teclado. Para selecionar o 
vaqueiro que se deseja movimentar a cada vez, 6" s6 usar a tecla 
de espaco. Agora, a galope para o Curral. 



Marcos Fernando Ribeiro Ferraz esta" no ultimo ano do curso de Enge- 
nharia Eletrdnica da Universidade Federal do Rio de Janeiro. 



OELSEIFX-16P(J)-P(J>»64iGOT090ELSEIFX-BP(J>-P(J)-64iGOT090ELSEIF 

X-128POKEP<J>.ViJ-J»l«IFJ-UJ-liPO-PCJ>iELSEP0-P<J> 

90 FOR 1-1 TO 2»IF PEEK <B< I ) ) < >32B ( I )«H( I ) tNN-NN-1 iPOKE BID.NIN 

EXT I ELSE POKE B(I).NIP0KE H< I > .32INN-0INEXT I 

100 IF PEEK(P<J))O32P<J)-P0iP0KE P(J),S ELSE POKE P(J),B«POKE P 

0.32 

HO IF NN<50 OOTO 70 ELSE Et-R IGHT*( TINE*. 3) 

120 A-VAL<LEFTI(E»,2)>HF HH>A.T»2 ELSE IF HH-A ANO HS)WAL<RIGMT 

»<E*.2)>.T-2 ELSE T-l 

130 J*-INKEY*iH-0iA-UAL(LEFT»<E»,2))H-VAL<LEFT»<E*.2))ilF HM(A 

OR HM-A ANO HS(B.GOT0 130 ELSE CLSiPRINT CHR«(23> iPRINT8394,~U0C 

E 8ATEU RECORDE ' " IPRINT8460. "ENTRE CON SEU NOtlE'iMH-AiHS-B IHS 

»-E*«NN*-'- 

140 PRINT8596,~"|HNPUT NH*tNM*-LEFT*(NM, 15) 

130 PRINT8770.-PRESSI0NE (ESPACO) PARA COHECAR't i IF INKEY*-" ",0 

OTO 20 ELSE ISO 

160 CLSIPRINT828,"CURRAL-|>PRINT864.STRING*<64,140>|«FOR 1-1 TO 

10IPOKE 15372»I,VINEXT I 

170 PRINT8224."<»- IMBUE IR0S~IP0KE 13638. NiPOKEl 5645. Ni PR INT8288. 

~(« ANINAIS-|»FOR 1-2 TO 10 STEP 2 IPOKE 15699- I , K INEXT IIPRINT83 

52."<" ROCHAS'iiFOR I«l TO 9 STEP 2IP0KE13764-I . UiNEXT HPRINT8 

416."<" CACT0S"|iFOR 1-1 TO IOiPOKE 15828*1 ,L INEXT I 

175 PRINT8480,"<" CERCADO'i 

180 POKE 15894, VI POKE 1 6022. VIPOKE 15957, WiPOKE 15939. WiPOKEl 3958. N I 

P0KE159O0, HP0KE1 5964. K I POKE16028.yiPOKE 15965, N i POKE 15966, Vt POKE 

15901, WiP0KE16029.WiPRINT8608."<" EXENPLO DE CAPTURA"i iHS«39iHH 

■39iN«»"-»»»»»~iHS*-"59i59"i0OT0 130 



Obter melhor desempenho de um equipamento de Idgica Sinclair depende 
muito do grau de domi'nio sobre ele. Por isso, vamos explori-lo ma is 



Domine as areas 
da memoria RAM 



Claudio de Freitas B. Bittencourt 



Um dado de grande importan- 
cia para quem desenvolve pro- 
gramas, principalmente em 
linguagem de miquina, 6 o 
conhecimento — mais do que isso, o do- 
mi'nio — da mem6ria RAM, cuja estrutu- 
ra, nos micros da linha Sinclair, apresen- 
ta-se segundo o esquema da figura 1 . 

Quando se esta digitando ou rodando 
um programa, as diversas sub-dreas em 
que se divide a RAM mudam constan- 
temente de tamanho, numa especie de 
mecanismo de sistole/didstole, para usar 
termos mais ou menos em moda. Tudo 
acontece as custas da reserva, que dimi- 
nui quando uma sub-drea aumenta e vi- 
ce-versa. 

Um reeurso muito empregado por 
programadores e o de alterar a posicffo 
da RAMTOP (RIP), variavel que indica 
o primeiro endereco fora do alcance da 
programa^So BASIC. Quando o micro 6 
ligado, a RTP esti no seu endereco ma- 
ximo e Id permanece ate* que seja rebai- 
xada para um enderecp R mediante os 
comandos BASIC abaixo ou atraves de 
instrucOes em linguagem de rndquina: 
POKE 16388,R-2S6*INT(R/256) 
POKE 16389, INT (R/256) 



Esse processo diminui a RAM e ape- 
nas 6 executado para reservar, nas posi- 
90es superiores, uma rirea a salvo de in- 
vasOes indesejaveis, decorrente dos tais 
movimentos de si'stole/didstole }£ cita- 
dos. Os enderecos situados nessa drea 
privilegiada ficara"o tambe'm imunes aos 
comandos NEW, SAVE e LOAD. 

Mas isso nao e' tudo, pois as sub-dreas 
STACK DA MAQUINA e STACK DO 
GOSUB permanecem nas posi90es origi- 
nais e podem, eventualmente, crescer 
(crescem para baixo) e destruir bytes 
que supunhamos a salvo sob protec,a"o 
da RTP. Para realocar essas sub-areas, de 
acordo com a nova posicJo da RTP, o 
unico comando dispom'vel e' o NEW, 
que, no entanto, apaga os programas 
BASIC e suas varidveis, sendo por isso 
impraticivel em certas circunstancias. 
Normalmente o que se faz 6, com a 
RAM ainda vazia, logo ap6s ligado o 
computador, colocar a RTP no endereco 
desejado, teclar NEW e, entato, digitar 
ou carregar programas. Tem-se, assim, 
uma unica opcSo, com a agravante de 
ter que ser feita antecipadamente, o que 
na"oe' nada prdtico. 



Para resolver o problema, apresenta- 
mos a rotina da listagem 1 em linguagem 
de mdquina, que realoca a RTP e trans- 
fere os STACKs para as posictes ade- 
quadas. A operac^o pode ser efetuada a 
qualquer momento e repetida indefini- 
damente, fazendo o conjunto descer ou 
subir na mem6ria, desde que observadas 
as seguintes precau^Ses: 

• colocar a RTP sempre na RESER- 
VA, quando estiver sendo abaixa- 
da; 

• nunca ultrapassar o endereco limite 
(32768, em micros de 16 Kb); 

• considerar que os STACKs ocupam 
cerca de 100 enderecos e que na"o 
pode haver qualquer superposi5a"o, 
seja com eles pr6prios ou com ou- 
tras dreas da mem6ria; 

• nunca alterar o endereco da RTP de 
menos do que 100 unidades; 

• colocar a RTP o mais distante pos- 
sfvel da PILFIM, a varidvel que in- 
dica o im'cio da RESERVA (para co- 
nhece-la fa9a PRINT PEEK 16412+ 
256 'PEEK 16413). 



ROM 



VARlAVEIS 



PROGRAMA 
BASIC 



ARQUIVO DE 
I MAG EM 



VARIAVEIS 



ESPACO DE 
TRABALHO 



STACK DO 
CALCULADOR 



y&w i maquina 



STACK 
GOSUB 



16384 



t-1 



650? 



•DFILE 



VARS 



■ELINE 



•PILFUN 



L 



PILFIM *-SP 



L 



ENSP RTP 



Figura 1 
14 
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Listagem 1 — Arrumando a RAM 



ENDERECO C6DIG0S 



mnemonicos 



INTERPRETACAO* 

DE-30720 
HL-RTP 

BIT de carry « 
HL-RTP-30720-A 
IF A>«0 GOTO 16542 
30720 no STACK da maquina 
HL-RTP 
HL— — DE 
BIT de carry ■ 
HL-30720-RTP-A 
DE-30720 
] BC-HL-A 

HL-ENSP 
HL-ENSP+A 
GOTO 16549 

| BC-HL-A 

HL-ENSP 

HL-ENSP- A 

ENSP-HL-ENSPiA 

HL-RTP 

BIT de carry - 

HL-RTP-SP 

1 BC-HL-RTP-SP ' 

HL-RTP 

RTP- 30720 

copia STACKS na posicao nova 

HL— — DE 

SP-HL 

RETURN 



•OBS.: Na interpretacao foi usado o simbolo A para indicar o desloca- 
mento da RTP. 



16514 


11 


00 


78 


LD DE, 30720 


16517 


2A 


04 


40 


LD HL,( 16388) 


16520 


AF 






XOR A 


16521 


ED 


r >2 




SBC HL,DE 


16523 


30 


1 ' 




JR NC 17 


16525 


D5 






PUSH DE 


16526 


2A 


04 


40 


LD HL,( 16388) 


16529 


EB 






EX DE.HL 


16530 


AF 






XOR A 


16531 


ED 


',2 




SBC HL.DE 


16533 


D1 






POP DE 


16534 


44 






LD B,H 


16535 


4D 






LDCL 


16536 


2A 


02 


40 


LD HL,( 16386) 


16539 


09 






ADD HL.BC 


16540 


18 


07 




JR 7 


16542 


44 






LD B,H 


16543 


4D 






LD C,L 


16544 


2A 


02 


40 


LD HL,( 16386) 


16547 


ED 


42 




SBC HL.BC 


16549 


22 


02 


40 


LD( 16386) ,HL 


16552 


2A 


4 


40 


LD HL,( 16388) 


16555 


AF 






XOR A 


16556 


ED 


72 




SBC HL.SP 


16558 


44 






LD B,H 


16559 


4D 






LD C,L 


16560 


2A 


04 


40 


LD HL, ( 16388) 


16563 


ED 


53 


04 40 


LD( 16388) ,DE 


16567 


ED 


B8 




LDDR 


16569 


EB 






EX DE.HL 


16570 


F9 






LD SP.HL 


16571 


C9 






RET 



As violacOes dessas regrinhas de bom 
senso, por conta e risco do usudrio, po- 
derSo provocar o colapso do sistema, 
mandando o seu programa para o espaco. 

Para digitar a rotina use um editor 
Assembler (pode ser aquele publicado 
em MS, n9 23) e prepare uma linha ini- 
tial: 1 REM... 58 caracteres. 

Devem ser exatamente 58 caracteres 
quaisquer. Rode o editor e forneca co- 
mo endere?o inicial 16514(4082 em he- 
xadecimal). 

Os bytes posicionados nos enderecos 
16515 e 16516 destinam-se a receber o 
valor a ser dado a RTP e, no momento, 
content o niimero 30720(7800 em he- 
xadecimal). Para mudar para um valor 
R faca: 

POKE 16515,R-256*INT(R/256) 
POKE 165164NT(R/256) 

E para acionar a rotina: B 

RAND USR 16514 * 



Cliudio de Freitas B. Bittencourt 6 formado 
em Engenharia Metalurgica e 4 professor de 
p6s-graduag§o em Engenharia Nuclear no IME 
- Institute M Hi tar de Engenharia, no Rio de 
Janeiro. 




Se o tal de cubo ma'gico nunca chegou a esquentar sua cabeca, 
aceite o desafio deste jogo, criado para a linha Apple 



Funde a Cuca 



C /audio Coelho Lima 



Ousuario da linha Apple que se 
liga em quebra-cabe9a eletro- 
nico vai encontrar em Funde 
a Cuca urn passatempo muito 
interessante. Trata-se de urn jogo seme- 
lhante ao conhecido cubo magico. jo- 
gador e" convidado a formar uma frase 
de 25 caracteres. desafio tern initio 
com a desordenacao das letras, que fica- 
rao dispostas num painel de 25 quadros, 
onde a frase devera ser reordenada em 
cinco linhas horizontals. 

Na parte superior direita da tela o 
tempo e cronometrado, em contagem 



regressiva. O desafio maior e reordenar a 
frase no menor penbdo de tempo possi- 
vel. Na parte inferior da tela, de a cor do 
com o progresso do jogador, a frase vai 
sendo disposta em sua forma original, 
para melhor orientac^o. 

Quando ela i totalmente recomposta 
surgem automaticamente impressos na 
tela o tempo gasto e o convite para uma 
nova tentativa. Um dos macetes para 
veneer o desafio 6 procurar criar frases 
com o maior numero possivel de vogais 
e consoantes iguais, por exemplo, com 
muitos A e/ou R, pois o remanejamento 



das letras fica mais facil. A frase deve ser 
digit ada no initio do programa, quando 
o computador fizer a pergunta. Caso vo- 
ce aperte o ENTER, o que surge no pai- 
nel e o alfabeto, incluindo as letras K e 
W. Funde a Cuca foi criado para Apple, 
mas pode ser facilmente convertido pa- 
ra outros equipamentos. Ocupa uma me- 
moria aproximada de 3.840 Kb. 



Cldudio Coelho Lima 4 estudante do Segundo 
Grau, autodidata e possui conhecimentot de 
BASIC e FORTH. 



Funde a Cuca 



12 

13 

14 

IS 

100 

101 

102 

103 

104 

110 

114 

113 

120 

123 

123 



REM »AUTOR DO PROGRAMA : • 
REM • CLAUD 10 COELHO LIMA» 
REM •TITULO: FUNDE A CUCA* 
REM .DATA: 04/09/1984 • 

REM l ll l ll ll l l imiiHHi i 

DIM A»<6> 

DIM B*<6> 

DIM C«<6> 

DIM D«<6> 

DIN»E«<6> 

REM FORMANDO A TELA 

TEXT : HOME 

VTAB 3 

PRINT "DIBITE UMA FRASE DE 2 

3 CARACTERES: " 

HTAB 2 

VTAB 3: PRINT " 



128 VTAB 4: INPUT T« 

130 T« - LEFT* <T«,2S> 

131 IF T« - "" THEN T« - "ABCDEF 
GHIJKLMNOPORSTUVMXVZ" 



139 HOME 

136 VTAB It X« - "FUNDE A CUCA": INVERSE 
HTAB 141 - LEN (I«>) / 2: PRINT 

n 

137 NORMAL 

138 VTAB 2: HTAB 1 

140 FOR P - 1 TO 3 

143 PRINT "•••••••••••••••••••»• 

•••••••••••••••••" 

146 NEXT P 

148 PRINT " »—»»»»»—» t »w 



45678 



131 PRINT "••••••••••• 

■■■■ ■ •■■■■■■■■* 
133 PRINT "••••••••••••• ♦♦♦♦♦♦ 

* •••••••••••••• 

133 FOR P - 1 TO 3 
156 READ R«: READ P* 

160 PRINT "••••••••••••• "|R«|"» 

♦ " I P« I " w mmm ii i ' 
163 NEXT P 

166 DATA 3,9,E,I,D,K,X,",",2,"." 



170 PRINT ....... 

171 PRINT .......... 

172 PRINT "••••......•••........ 



*•• CVBNM 



173 
180 

183 
200 
203 
206 
210 
213 
220 
223 
230 
233 
240 



FOR P - 1 TO 6 

PRINT "..........•.......... 

NEXT P 

REH INICIO DO PROGRAMA 

FOR T - 1 TO 3 

READ A.B.C.D.E 



A«(T) 

■»<T) 

C«(T) 
M<T> 
E«(T) 

NEXT 

DATA 20,13,13,23,1,6,9,18,23 

,4,8,3,2,22,11, 17, 10,7,21,24 

,19,12,3,14,16 



MID« <T«,A,1) 

MID« <T«,B,1) 

HID* (T»,C.l) 

MID« (T»,D,1) 

MID« <T«,E,1) 



16 
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244 VB - 1 
243 GOSUB 300 
24* VB - 

247 FOR H - 3000 TO 1 STEP - 1 
24B VTAB 3: HTAB 28: PRINT "TEMP 
□ :••:' 

249 DT - PEEK I - 16384) 

250 IF DT - 179 THEN M - 1: GOTO 
300 

252 IF DT - 197 THEN M - 2: GOTO 

300 
234 IF DT - 196 THEN H - 3: GOTO 

3O0 
236 IF DT - 216 THEN M - 4: GOTO 

300 
238 IF DT - 218 THEN M - 3: GOTO 

300 
260 IF DT - 183 THEN N - 11 GOTO 

320 , 
262 IF DT - 201 THEN M - 2: GOTO 

320 
264 IF DT - 203 THEN H - 3: GOTO 

320 
266 IF DT - 172 THEN M - 4: GOTO 

320 
268 IF DT - 174 THEN H - 3: GOTO 

320 
270 IF DT - ISO THEN N • II GOTO 

340 
272 IF DT - 181 THEN N - 2: GOTO 

340 
274 IF DT - 182 THEN M - 3: GOTO 

340 
276 IF DT - 183 THEN M - 4: GOTO 

340 
278 IF DT - 184 THEN M - 3: GOTO 

340 
280 IF DT - 195 THEN H - 1: GOTO 

330 
282 IF DT - 214 THEN M - 2: GOTO 

3SO 
284 IF DT - 194 THEN M - 3: GOTO 

3SO 
286 IF DT - 206 THEN M - 4: GOTO 

3SO 
288 IF DT - 203 THEN M - 5: GOTO 

350 
290 NEXT H: GOTO 1000 
300 A«<6> - A»<1):B«<6> - B» < 1 > : C 
• (6) - C«(1>:D«(6> - D«U):E 





•<6> - E«<1 I 




340 


REM VERIFICACAO DE ACERTO 




301 


FOR T • 1 TO 3 




541 


FOR T - 5 TO 1 STEP - 1 




302 


N - T ♦ 1 




542 


'.'♦ Ill ■ A»<T) ♦ V»<1) 




304 


IF li ■ I THEN A«<T> 


• A»(N> 


543 


V«<2> - B»(T) ♦ V«(2) 




305 


IF li - 2 THEN B»(T) 


■ B»<N> 


544 


V«(3) ■ C«<T> ♦ V«<3> 




306 


IF M - 3 THEN C« ( T > 


■ C«<N> 


543 


V«(4) - D«<T) ♦ V»(4) 




307 


IF M - 4 THEN D«(T) 


• D«(N) 


346 


V»<5> - E«CT> * V«<5) 




308 


IF M - 3 THEN E«<T> 


■ E»(N) 


348 


NEXT T 




109 


NEXT T 




350 


P* - V«(l) ♦ V»<2) ♦ V«(3) ♦ 




310 


GOTO 3O0 






V«(4) * V«<5) 




320 


A*(0) ■ A«(3>:B*<0> - 


B*<5>:c 


551 


VTAB 23: HTAB 8: PRINT P» 






• <0> ■ CS(S):D*(0> - 


D«(5>:e 


355 


IF P« - T% THEN GOTO 600 






• <0> • E«(3) 




556 


FOR T - 1 TO 5:V«(T) - "-: NEXT 




321 


FOR T - 5 TO 1 STEP 


- l 




T 




322 


N - T - 1 




370 


IF VB - 1 THEN RETURN 




324 


IF n ■ 1 THEN A«<T> 


■ A«(N) 


580 


GOTO 290 




325 


IF M - 2 THEN B*(T> 


• B«(N) 


60O 


HOHE : FOR T - t TO 4 




326 


IF M - 3 THEN C«<T) 


■ C»(N) 


60S 


FOR L - 1 TO 4 




327 


IF M - 4 THEN D«(T) 


■ D«(N> 


610 


CALL - 198 




328 


IF M - 3 THEN E«(T) - E«(N> 


615 


NEXT L 




329 


NEXT T 




616 


VTAB 13: PRINT " CONG 




330 


GOTO 500 






RATULACOES I ! ! 1 




340 


FOR T - 1 TO 5 




618 


FOR P - 1 TO lOO: NEXT P 




341 


G«<T> - A«(T> 




619 


HOME 




342 


NEXT T 




620 


NEXT T 




343 


A«<M> - B«<M):B«<M> - 


c«<m>:c 


630 


SPEED- 100 






•(H) • D4(M):D«(M) - 


e«(h>:e 


635 


VTAB 4: PRINT " MUITO BEM.VO 






• <m> - G«<ri> 






CE CONBEGUIU ARMAR " : PRINT 




345 


GOTO 500 






"TEXTO ("|T»|"J COM 0": PRINT 




350 


FOR T - 1 TO 5 






"TEMPO "I5OO0 - HI ".AGORA TE 




351 


G«<T> - E«(T) 






NTE SER AINDA": PRINT "MAIS 




352 


NEXT T 






RAPIDO. " 




353 


E«(M) - D«<ri>:D«cri> - 


c«<m> :c 


640 


SPEED- 255 






• (M> - B«(M) :B«(M> - 


A*<n> : a 


645 


VTAB 23: PRINT " APERT 






•(H) - G«(N> 






E UMA TECLA":DT - PEEK ( - 




500 


FOR T - 1 TO 5 






16384): IF DT > 127 THEN 670 




501 


DT - PEEK ( - 16368) 










502 


INVERSE 




650 


VTAB 23: PRINT " 




303 


VTAB 10: HTAB 16 ♦ T 


PRINT 




": GOTO 645 






A«(T) 




670 


INPUT J«: RUN 




310 


VTAB 111 HTAB 16 ♦ T 


PRINT 


lOOO 


HOME : CALL - 198 






B«(T) 




lOOS 


SPEED- 233 




313 


VTAB 12: HTAB 16 ♦ T 

C«(T) 


PRINT 


1010 


VTAB 4: PRINT " SINTO MUIT 

MAIS SEU TEMPO ACABOU.": PRINT 




320 


VTAB 13: HTAB 16 ♦ T 
D4(T) 


PRINT 




"PERCEBO QUE VOCE TEM PREGUI 
CA DE ": PRINT "PENSAR.": PRINT 




525 


VTAB 14: HTAB 16 ♦ T 
E«<T> 


PRINT 




"ACHO QUE ESTE JOGO NAO SER 
VE PARA": PRINT "VOCE.TCHAU' 




530 


NEXT T 






'•: SPEED- 255: END 


m 


535 


NORMAL 









Impressoras apai xonadas, 
micros felizes. Oiasamento perfeito. 



Ecodata EL 8000 
A impressora 
f ora de serie. 

EL -8000 e tudo que um micro precise de 
uma impressora. De incrivel versatilidade 
a EL 8000 possue: 

• Controle por microprocessador. 

• Escrita bi-direcional em qualquer cir 
cunstancia - procura lOgica. 

• Imprime em diversos idiomas: ingles, 
francos. alemSo, espanhol. etc. 

• Desenha. faz graficos. reproduz qual- 
quer imagem que um Micro produza 
em seu video. 

• Troca de formato de impressao dentro 
da mesma linha. 

• Velocidade de comunicacao de 50 ate 
9600 BPS. 

• Buffer de recepcao ate 2.000 caracte- 
res. 

• Produz diversos tipos de impressao: 
normal, negrito. expandido, sublinha 
do, sub e sobre-escrito. 

• 80 a 132 caracteres por linha. 

• Impressao matricial 9x7 permitindo 
ate 8 vias numa velocidade de 100 
CPS. Em bobina. folha solta e/ou for 
mulario contlnuo. 

• Etc... etc... etc... 
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SISTEM* DC PROCCSSAMtNTO M DADOS E TEIECOMUNICACOES 

Rio de Janeiro - R. Republica do Libano. 61 - 12° andar - Tel.: (021) - 221-4677 - Telex (021) 30187 

Sao Paulo - Rua Frei Caneca. 1119 - Tel.: (011) 284-8311 Telex (011) 22191 

Brasilia - SCS 02 - Bloco C n? 41 SL. 01 Tel.: (061) 225-1588 - Telex (061) 1750 

Porto Alegre - Rua Santa Terezmha, 300 - Tel: (051) 232-3564 - Telex (051) 2144 

Belo Horizonte: Tel.: (031) 222-7809 

Goiania Salvador 



Teclado BASIC 

A Dynacom est£ lancando um teclado BASIC acoplavel a qualquer 
videogame compati'vel com o sistema ATARI. O novo teclado permite 
programapSo de microcomputador em linguagem BASIC, criacfo de jo- 
gos animados e sonoros, programas matemdticos e sintetizacoes de mu- 
sics. 

O teclado BASIC vem acompanhado de um cartucho com programa 
de 4 Kb e um manual ilustrado. A sua final idade, segundo a empresa, 
e eliminar o medo existente nas pessoas do "terrfvel computador" e 
demonstrar que qualquer pessoa pode manipular a mdquina a seu co- 
mando. Outra finalidade e ensinar n princfpiosda programacao BASIC 
a criancas a partirdos seis anos de idade. 

Para a instalaca"o do teclado basta encaixar os seus conectores nos 
respect ivos soquetes dos joysticks direito e esquerdo do console e car- 
tucho do programa que acompanha o teclado. O novo produto da Dy- 
nacom pode ser encontrado nas lojas especial izadas e magazines por 
Cr$ 122 mil. 



Informatica medica na UERJ 

A Universidade do Estado do Rio de Janeiro, que em outubro 
passado realizou o 19 Semindrio de Informatics, prossegue em 
fevereiro com tema paralelo. Realizara' seu 19 Congresso Brasi- 
leiro de Informatica Medica. E simultaneamente, a 1 a Mostra In- 
ternacional de Videocassete Medico e o 19 Forum Internacional 
de DemonstracSb de Equipamentos Medicos. Outras-informacdes 
pelo telefone 264-8143, ramais 2417 e 2507. 



Miniventiladores Arno 

A Arno estd lancando uma linha de miniventiladores que podem ser 
utilizados em computadores, equipamentos perifericos, sistemas de co- 
municaca*o e instrumentos eletronicos portdteis. O Muffin DC possui 
motor sem escovas o que reduz os nfveis de interferences ra"dio magn6- 
tica. O novo miniventilador fornece maior volume de ar que os modelos 
convencionais de corrente alternada, resultando em menor consumo de 
energia. O Muffin DC e ideal para situacoes onde W necessidade de 
manter a ventilacao, no caso de falha e interrupcao de fornecimento de 
corrente alternada. 



Cursos da Datamicro 

A Datamicro Informatics ja tern a relaca"o de cursos que pro- 
movera" durante o mes de Janeiro. As aulas sera"o desenvolvidas 
em sua sede, na Rua Visconde de Piraja, 547, sobreloja 211, tel. : 
511-0395, Ipanema. , 

Eis os cursos e os perfodos em que se realizara"o: "Linguagem 
BASIC Avancada" (2 a 30); "Micro Computador para Criancas" 
modulo 1 (3 a 22); ','Microcomputador para Criancas", modulo 2 
(4 a 16); "Microcomputador Aplicado no Cdlculo Estrutural" 
(7 a 28); "Linguagem BASIC" (7 a 28); "Programacao BASIC" 
(7 a 6/2); "IntroducSo aos Microcomputadores" (8 a 31); "Mi- 
crocomputador para Criancas" modulo 3 (8 a 24); "Linguagem 
de Maquina para o TK" (9 a 30); "BASIC para o Advogado" (9 a 
8/2) e "Microcomputador Aplicado em Metodos Matem^ticos" 
(10 a 5/2). 



Programas Ciberne 

A Ciberne Software/JVA microcomputadores, do Rio de Janeiro, 
esta lancando 23 programas para micros com logica Sinclair e TRS-80, 
sendo 5 deles total mente ideal izados e desenvolvidos no Brasil. Os pro- 
gramas esta"o divididos em oito fitas cassete; sa"o elas: VALKIRIE, 
MERCADOR DOS 7 MARES, DEFENSOR 3D e SUB-ESPACO (jogos 
compatfveis com o Sinclair); APLIC I e ROT l-Plus ( respect ivamente 
pacote aplicativo e utilitdrio para os compatfveis com o Sinclair); 
SIMULADOR DE VOO E XADREZ (jogos para os compatfveis com o 
TRS-80). 

As fitas contem, entre outros, os seguintes programas: Patrulha Ar- 
mada, Guerrilha C6smica, Corrida Maluca, Cavernas de Marte, Assalto e 
Pintor Maluco (jogos); COMP-CALC (verstfo do programa Visicalc); 
COMP-ARQ (gerador de arquivo de dados); COMP-TEXTO (editor de 
texto) e S.O.G. (Sistema Operacional Grdfico). Este sistema 6, na ver- 
dade, uma linguagem grdfica com mais de 27 rotinas conjugadas que 
da"o muitas opcoes de uso e combinacoes, ale'm de ser feito em codigo 
de macjuina. 

O endereco da Ciberne/JVA e: Av. Graca Aranha, 145 — S/Loja 
n9 1, CEP: 20.030. 




1-9000 da Itautec 



Itautec fechando o ano 
com langamentos 



A Itautec fecha o ano de 84 
com um resultado final de ven- 
das entre 80 e 90 bilhoes de cru- 
zeiros e uma producao mc4dia de 
500 micros por roe's. Segundo 
Carlos Eduardo Correa da Fon- 
seca, dire tor superintendente da 
empresa, o resultado de 84, des- 
contando-se a inflacao, foi supe- 
rior em cerca de 100 por cento 
ao fechamento de 83. E a em- 
presa fechou o ano com o lan- 
pamento de mais dois equipa- 
mentos, o I-9000, o primeiro 
computador de mldio porte (32 
bits) fabricado no Brasil; e o 
I-7000 PCXT, um microcom- 
putador de 16 bits, compati'vel 
com oPCda IBM. 

O 1-9000 foi desenvolvido 
com base na tecnologia adqui- 
rida da empresa Formation, uma 
companhia americana de enge- 
nharia, e o equipamento 6 to- 
talmente compatfvel com os 
computadores de grande porte 
da IBM. A Itautec ja" invest iu 
cerca de 3 milhoes de ddlares, 
de um total de 75 milhoes que 
serSo investidos nos primeiros 
quatro anos de producffo da no- 
va maquina. Segundo o diretor 
superintendente da Itautec, o 
processo de nacionalizacao do 



1-9000 deverd ser conclufdo em 
meados de 85, e hoje uma equi- 
pe jd esta* trabalhando nos Es- 
tados Unidos no desenvolvimen- 
to da segunda geracao do 1-9000. 
Para Carlos Eduardo Correa da 
Fonseca, uma das grandes vanta- 
gens do 1-9000 sera sua utiliza- 
cao como equipamento comple- 
mentar para clientes que j^ pos- 
suam computadores de grande 
porte da IBM, para a realizaca'o 
de processamento distribufdo. O 
1-9000 custa, numa configura- 
ca"o com 8 Mbytes, duas fitas, 
controlador de comunicaca"o de 
dados e uma impressora de mil 
linhas, aproximadamente 500 
mil dblares. 

Para o micro de 16 bits, o 
PCXT, lancado na Feira de In- 
formatica no Rio de Janeiro, foi 
feito um investimento de cerca 
de 3 milhoes de dolares e no 
ano de 85 serao colocados no 
mercado por volta de mil unida- 
des dessa maquina. 

A Itautec vem atuando tam- 
tx4m na aVea de videotexto e a 
empresa fornece hoje a Telesp as 
estacoes editoras de videotexto, 
ale'm dos terminals residenciais 
para acesso ao sistema. 
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Impressora 
matricial 
da Expansao 

A Expansao Informatics S. A., 
que det6m a licenca de fabricacab 
das impressoras Dataproducts no 
Brasil, lancou na Feira de Infor- 
matica a impressora matricial de 
impacto M-340X, que tern a velo- 
cidade de 340 CPS e capacidade 
de imprimir ate* 132 colunas. A 
M-340X tern matriz de 7x7, 6 bi- 
direcional com procura I6gica, 
possui interfaces RS 232-C e para- 
lela tipo Centronics, e tern ainda 
urn conjunto de 1 28 caracteres. 

Fitas 

impressoras 
da Memphis 

A empresa paulista Memphis 
esta lancando uma nova geracab 
de fitas impressoras para compu- 
tador, as Extralife. O produto 6 
colocado no mercado apos dois 
anos de pesquisas para elaboracab 
de seus componentes, como cartu- 
cho, base, pigmento, solda, mon- 
tagem e desempenho, investimen- 
to que custou a empresa US$ 1 
milhab. 

As Extralife foram criadas tan- 
to para micros como para com- 
putadores de grande porte e po- 
dem ser utilizadas por todos os 
equipamentos existentes no Bra- 
sil. Ja este ano, parte da produ- 
cab da nova linha de fitas da 
Memphis sera exportada para par- 
ses da America Latina, Africa do 
Sul e Estados Unidos, onde pre- 
enche todas as exigencias reque- 
ridas pelo governo americano 
quanto a qualidade e resistencia. 



Medidata 
langa o 

supermicro 
M1001 



Com o lancamento do super- 
micro M1001, a Medidata con- 
clui uma nova etapa de cria- 
cab, iniciada em 1978. O novo 
produto esta" integrado a uma fa- 
mflia de computadores compatf- 
veis e que nab devera" se alterar 
pelo menos nos pr6ximos trds 
ou quatro anos, informam dire- 
tores da industria. 

O M1001 foi desenvolvido 
visando nab apenas as pequenas 
e mebias empresas, mas tam- 
Mm as grandes, cujo objetivo a 
curto prazo e descentralizar seus 
sistemas de processamento de 
dados. Ele surge, segundo Luis 
Carlos Dantas, gerente de Su- 
porte de Marketing da Medidata, 
"com excelente relacab preco/ 
desempenho devido a utilizacab 
de tecnologia de microprocessa- 
dores". 

Rodando em sistema opera- 
cional MUMPS, o M1001 atende 
simultaneamente a diversas esta- 
cfles de trabalho, aceitando ate 
10 terminals, o que resulta em 
melhor aproveitamento de peri- 
fericos. Sua UCP e baseada no 




M1001 da Medidata 

microprocessador Z8000, da Zi- 
log, de 16 bits, o qual pode ma- 
nipular dados de 32 bits. Sua 
mem6ria 6 de 512 Kb com pas- 
tilhas de 67 Kb ou 2 Mb com 
pastil has de 256 Kb. Ele suporta 
dois disquetes de 5 1/4", face e 
densidades duplas com capacida- 
de individual de 320 Kb e tres 
discos n'gidos de 5 1/4" tipo 
Winchester, de 15 Kb cada. No 
back-up emprega fita magndtica 
em cartucho tipo Streamer com 
capacidade de ate" 25 Mb. O ga- 



binete 6 vertical, de dimensCes 
reduzidas. 

Para lancar o Ml 001 a Medi- 
data investiu no projeto, que du- 
rou dois anos, Cr$ 1,8 bilhab. 
Em sua configuracab de 256 Kb, 
um disquete, um disco n'gido, 
terminal de vfdeo e uma impres- 
sora de 100 CPS, o custo do 
equipamento 6 de 3.200 ORTN. 
Com o novo equipamento sab 
oferecidos conjuntos de pro- 
gramas aplicatK/os a partir de 
500 ORTN. 



Novo terminal Videotek 



Um terminal de vfdeos a cores, VTK 2000C, 
foi o produto lancado pela Videotek Sistemas 
Eletr6nicos. O modelo 6 apresentado em oito 
cores diferentes, a tela tern 80 caracteres por 



48 linhas, perfazendo um total de 3.840 carac- 
teres na tela. O modelo apresenta ainda vfdeo 
reverso. alimentacab de 110/220 Volts e fre- 
quencia de 60 Hz. 




STRINGS 




• A Appletronica Computadores, de Sao Paulo, esta 1 oferecendo cur- 
sos de introducab a Informa'tica e BASIC I, com varias opcoes quanto a 
duracab e dias de aula. Informapdes pelo tot.: (011) 241-9833. • A 
Cooper & Lybrand, empresa de auditores independentes e consultoria, 
alem de orientacab de compra e instalacab de hardware e software vem 
atuando no sentido de orientar as empresas na fase de conversab dos da- 
dos de sistemas existentes (manuais ou computadorizados) para micro- 
computadores. • A Anamed, industria paulista, acaba de lancar um es- 
pirdmetro computadorizado, um eletrocardiografo e um sistema de re- 
gistro de dois canais. • A 3M firmou contrato com a NASA para rea- 
lizar uma slrie de experiencias espaciais, tais como: desenvolvimento de 
filmes de sensibilidade ainda desconhecida e cristais de espessura micro- 
mdtrica que, segundo a empresa, darab um impulso ao desempenho dos 
computadores. # A Micro Rei Informatica, de Sa"o Paulo, est^ lancando 
o programa Controle de Aplicacoes Economicas, que coordena investi- 
mentos em acoes, ouro, gado e d6lar. O programa realize anilise das va- 
riacoes di^rias dos precos pelo computador. • A Lojicred Universita- 
rio promove mensalmente cursos de programacab COBOL, BASIC, 
Digitacab e Operacab de Sistemas 4341. A divisab de Cursos Espaciais 
oferece cursos de VSAM, CICS e Sistema de Aprimoramento COBOL 
(SAC). Maiores informacdas a Av. Ouque de Caxias n9 401/19 andar, 
tel.: (01 1 ) 234-7855. • A ADP Systems, complementando sua Iinh8 de 



cursos na a>ea de Informatica, esta* introduzindo os cursos de BASIC 
II, COBOL 80, Visicalc e Word Star, com turmas sistematicas e uso in- 
tensivo de micros. Maiores informacfies pelo tel.: (011) 223-7511. 
• A Fundacao Petronio Portella, de Brasflia, est^ lancando um curso de 
Informatica Juri'dica por correspondencia. O curso pretende dar uma 
visab geral das aplicacSes do computador no Judicidrio, Legislativo e no 
trabalho do advogado. Informacdes podem ser obtidas na pr6pria Fun- 
dagab: Minist^rio da Justica, Esplanada dos Minister ios, 70.064, Brasf- 
lia, DF. A Prologica esta comercializando dois programas de uso do- 
m^stico para o CP-400 Color. Um dos programas organiza a lista de 
compras do supermercado, o outro reiine vdrias receitas culin^rias. 
BKP-60 6 a unidade de fita cartucho lancada pela Compart, na Feira de 
Informatica. Projetada para servir como back-up de discos Winchester 
de 10 a 200 Mb, a BKP-60 esta disponi'vel em formato de 5 1/4", com 
capacidade de 45 e 60 Mb, e possui trava de cartucho, o que evita a 
movimentacab do meio (cartucho de 1/4") durante a operacab. • A 
Percomp Perif*>icos e Sistemas tambem apresentou, na Feira, discos 
magneticos n'gidos Winchester de 10 Mb. Os discos apresentam, entre 
outras, as seguintes caracterfsticas: meia altura (41,3mm); dimensdes 
reduzidas (203mm de profundidade); posicionamento por motor de 
passos; capacidade formatada de 10 Mb por unidade, 8192 por trilha 
e 256 Kb por setor ; 1 224 trilhas e 4 cabecas. , 
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Its A Informatica na Engenharia 



Nao se pode dizer que a Informatica, na 
area de Engenharia, nao tenha apresentado 
progressos de urn a no para outro. O que se po- 
de af irmar 6 que as novidades nao foram vistas 
na IV Feira Internacional, no Riocentro. Aopi- 
niao 6 de Luis Antonio Pereira, assessor tecni- 
co de MS. Ele percorreu a exposicao e disse 
nao ter encontrado, em termos nacionais, na- 
da que motivasse sua curiosidade. 

Pereira nao chega a atribuir a falta de inte- 
resse dos programadoresbrasileirosa inexisten- 
cia de software em demonstracao. Segundo 
ele, o investimento para um programador f fsi- 
co apresentar seu produto numa feira 6 eleva- 
do em relacao ao risco de retorno. Quanto aos 
programas voltados a Engenharia, criados por 
empresas, o assunto & mais complexo, afirma 
Pereira. 

Ele analisa a questao a partir de problemas 
levantados durante o seminaVio Informatica e 
Engenharia, realizado simultaneamente a Feira. 
Na ocasiao, apresentadores e debatedores dis- 
cutiram a falta de programas tecnicos disponf- 



veis e o comportamento das empresas que nao 
repassam o software que criam a outras empre- 
sas nem o colocam a venda por intermddio de 
software-houses. Pereira esclarece: 

- A criacao de programas 6 demorada e de 
elevado custo. Sao geralmente especfficos, pa- 
ra determinada aplicacao, cuja utilidade por 
parte de outras empresas seria mmima. Vende- 
lo, alem de nao apresentar o retorno suficien- 
te, signif icaria "entregar de presente" um tra- 
balho ao concorrente. Mesmo assim, um pro 
grama especffico implica no fato de ser roda- 
do por quern entenda, um analista ou um tec- 
nico, e a empresa nao poderia garantir o apro- 
veitamento ou nao do programa por parte de 
quern nao o entendesse. 

Como ficou comprovado, na feira nao ha- 
via programas disponfveis. mas eles existem, 
garante Pereira. Sao criados por engenheiros 
que se dedicam a programar calculos numeVi- 
cos, estruturas, economia de material etc. Um 
trabalho divulgado boca-a boca, sem publici- 
dade. 



E o ni'vel da qualidade da Engenharia pode 
ser avaliado pelo grau de utilizacao da Infor- 
matica em seus projetos. Este foi o consenso 
dos participantes do seminario Informatica e 
Engenharia. E ela eleva em apenas 0,5% o va- 
lor do produto final, economizando tempo e 
material. 

Mas a grande parte do problema de a Enge- 
nharia na"o dispor de uma infra-estrutura mais 
avancada neste setor surge ja na formacao do 
profissional. Caso nao se interesse pessoalmen- 
te pelo assunto, o engenheiro deixara* a vida 
academica completamente despreparado, afir- 
ma Pereira. 

Sao poucas, no Brasil, as faculdades que 
dispdem de um Centro de Processamento de 
Dados ou um laboratbrio aberto a seus alunos. 
As vezes ocorre de o estabelecimento possuir 
um ou dois microcomputadores, mas empre- 
gando me'todos didaticos obsoletos ou profes- 
sores despreparados pedagogicamente. 



O computador 
animando o desenho 



Atraindo um publico de todas 
as idades, durante a IV Feira Inter- 
nacional de Informatica, a Oficina 
de Desenho Animado com o Uso 
do Microcomputador mostrava no 
mezzanino do Riocentro como 6 
possfvel a conciliacao de dois re- 
cursos que para muitos podem pa- 
recer dfspares: o computador e a 
criacao. Com o simples toque em 
teclas do microcomputador que 
determinavam a direcao do traca 
do. criancas das varias escolas vi- 
sitantes faziam seus desenhos e se 
encontavam com o resultado. E o 
espanto era ainda maior quando a 
imagem criada no micro era proje- 
tada no video cassete, aparecendo 
numa tela grande de televisao. 

A Oficina, dirigida por Daniel 
Schorr, com formacao em comuni- 
cacao visual, e Marcos Magalhaes, 
cineasta conhecido pela realizacao 
do desenho animado "Meow", pre- 
miado no Festival de Cannes, f un- 
ciona na Rua dos Artistes, 199, 
no bairro carioca de Vila Isabel. 



Hoje a Oficina de Desenho Anima- 
do tern em andamento tres proje- 
tos bisicos: a producao de filmes 
didaticos sobre introducao ao mi- 
crocomputador; a pesquisa da lin- 
guagem de desenho animado com 
utilizacao de computador; e o en- 
sino da tecnica de desenho anima- 
do e a divulgacao do desenho ani- 
mado nacional. Na area de produ- 
cao de filmes didaticos a Oficina 
de Animacao ja tern pronto o pri- 
meiro video pi loto. de uma s£rie 
de cinco que tern por objetivo a 
iniciacao no raciocmio do compu- 
tador. O roteiro dos outros quatro 
filmes ja estd" pronto a espera de um 
patrocinador. E na pesquisa da lin- 
guagem do desenho com o uso do 
computador como recurso expres- 
sivo, ja* foram desenvolvidos dois 
programas em linguagem BASIC, 
"Traca" e "Edita", para iniciacao 
das pessoas na arte do desenho 
animado. Maiores informacoes so- 
bre a Oficina de Animacao podem 
ser obtidas pelo tetefone (021) 
286-9877. 



Diacon leva Informatica 
a medicos e dentistas 

A Diacon Informatica, de Sao Paulo, esta" lancando um con- 
junto de programas que permit ira as cl micas m6dicas e odonto- 
logicas substituirem as tradicionais fichas de pacientes por mo- 
demos registros em discos, bem como controlar compromissos 
atraves de uma agenda eletronica. A Diacon tambe'm tern dispo- 
nfveis modulos especfficos para administracao financeira desse 
ramo de servico, seus convenios e de estoques. 

De acordo com a Diacon, o ponto alto do conjunto i um pro- 
grama que permite efetuar pesquisas clfnicas cruzando uma gama 
muito ampla de informacoes, obtendo os resultados tanto na tela 
do micro como impressos. A Diacon personaliza programas con- 
forme as caracterfsticas especff icas de cada profissional e oferece 
treinamento na propria clfnica. Os precos do servico, programas 
e treinamento variam, a partir de 60 ORTN. Outras informacoes 
poderao ser obtidas pelo telefone (01 1 ) 572-6168. 



Novo Naja 



A Kemitron acaba de lancar o seu micro compatfvel com CP/M: o 
Naja 800, que, utilizando o microprocessador Z-80A, tambe'm 6 total- 
mente similar a linha TRS-80 (modelos III e IV). O novo produto da 
empresa mineira apresenta as seguintes caracterfsticas em sua configura- 
cao minima: 1 28 Kb de membria RAM e 1 4 Kb de EPROM para o inter- 
pretador BASIC; monitor de 12", com possibilidade de operar em tr§s 
formatos diferentes e tambe'm em modo normal ou reverso (selecionavel 
por software); teclado (tipo mdquina de escrever) com 70 teclas e um 
teclado nume'rico reduzido, dois drives de 5 1/4" embutidos na UCPe 
ainda cinco slots para conexao de expansoes. 

O Naja 800 pode tambe'm ser equipado, opcionalmente, com placa 
de alta resolucao grafica (640x240 pontos), disco tipo Winchester, inter- 
face para comunicacao serial e sintetizador de voz. Mas, sem duvida, 
uma das grandes novidades do rec6m-lancado equipamento 6 que ele jS 
6 compatfvel com o CP/M 3.0, da Digital Research. 

Caneta fotossensivel 

A BIT - Servicosde Processamento de Dados Ltda., empresa de Por- 
to Alegre, acaba de lancar no mercado uma caneta fotossensfvel. A ca- 
neta, ao interagir com as cores emitidas pelo video de um televisor ou 
de um monitor ligado a um computador, digitaliza os varios compri- 
mentos de ondas para que a CPU interprete os dados atraves de um 
software. A nova caneta fotossensfvel ]& est4 sendo comercializada e seu 
preco 6 de Cr$ 49 mil e 900. 



Os sistemas 
da Stalo 



A Stalo, industria do Parana\ 
criada em maio deste ano, 
desenvolve em sistema de OEM, 
como "System House", tr$s linhas 
de produtos: Stalo SMU, um 
micro monousuSrio, multi-tarefas; 
o Stalo STS, micro multiusuaVio 
e o Stalo NET SRE . Duas 
outras linhas de produtos da Stalo 
sa"o os sistemas aplicativos MIG 
(integrado gerencial), INDICARE 
(analise econdmico-financeira e 
patrimonial dinamica) e 
DECISOGRAMA (estrategia de 
gestao por projetos e simulacoes) 
e software basico desenvolvido 
pela Microbase. 



Calculadoras 
de bolso 



A Sharp esti colocando no mer- 
cado tres novas calculadoras de 
bolso, todas com dimensoes redu- 
zidas. Os modelos E L 863 e E L 345 
funcionam com c6lula solar, que 
substitui as baterias ou pilhas con 
vencionais. A ce'lula permite of un- 
cionamento normal da calculado- 
ra nao somente com energia solar 
mas tamb6m com qualquer tipo 
de luz artificial. modelo E L 860, 
tipo cartab de crddito, pesa apenas 
39 gramas e f unciona com bateria. 
As tres novas calculadoras reali- 
zam as quatro operacoes ba'sicas. 
e ainda raiz quadrada, potencia- 
cao, porcentagem e calculos com 
membria. 



*. 
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unitron 

a base clc um sistema 




IIA£ll±jlll IK.SL 



Q 



uanto mais 
complexo for um sistema. 
mais sdlida e confidvel 
deve ser sua base. 
Quando voce tern um 
micro da Unitron como 
principio inteligente, voce 
tambem tern a certeza de 
que o atendimento de 
suas necessidades em 
processamento de dados 
estd assegurado. E a 
palavra de quern 
trabalha continuamente 
para olerecer uma 
tecnologia sempre atual 
ao usudrio. E o que os laios demonstram. 
Na sua categoria. o Unitron andou sempre na 
trente. Al£m de contar com uma intinidade de 
programas, testados e aprovados, e os mais 




diversiticados acessorios 
de expansdo - entre 
modulos. interfaces e 
perifehcos -o Unitron 
agora pode ser 
conectado. via tele f one. a 
todas as redes exist en tes: 
Amanda, Ciranddo. 
Interdata, Cyber, 
Videotexto, CMA. etc. Ou. 
entdo, as redes 
particulars, acessando 
outros micros ou 
comunicando-se com 
. r - computadores de grande 
porte. nafuncdo de 
terminal inteligente. Portanto. se voce deseja um 
processamento de dados com qualidade . fale 
com nossos revendedores autorizados. Para cada 
caso. uma solucdo inteligente. Do principio ao fim. 





unitron 



CAIXA POSTAL 14 127 - SAO PAULO - SP - TELEX (01 1 ) 32003 UEIC BR 



Um crime monstruoso ocorre numa mansao. VocS deve descobrir o assassino, 
a arma e o local da tragedia. Este 4 um desafio para... 



O super-detetive 



Alberto Cezarde Carvalho 



Oprograma Detetive 6 segura- 
mente uma boa opcao para os 
fins-de-semana chuvosos. Ba- 
seado no famoso jogo de mes- 
mo nome fabricado pela Estrela, o jogo 
foi desenvolvido em um equipamento 
CP-200, embora seja inteiramente com- 
pati'vel com os demais micros da linha 
Sinclair, desde que com um minimo de 
16 Kbytes. 

O programa e" auto-explicativo e per- 
mite de um a cinco jogadores. Um maior 
numero de jogadores torna o jogo mais 
interessante, e recomenda-se, a exemplo 
do jogo original, o uso de lapis e papel 
para um melhor controle das suspeitas. 

O JOGO 

crime da-se numa mansao, em qual- 
quer de seus compartimentos. com- 
putador ira" escolher aleatoriamente um 
criminoso, a arma e o local do crime. 
Voce devera descobrir estes ties itens 
para sagrar-se vencedor. 

Seu metodo de investigacao 6 por ex- 
clusao. Isto porque o computador distri- 
bui aleatoriamente entre os suspeitos 
(morotista, camareira, Blanche, Dalas, 
Lane, Marfim e o mordomo) uma carta, 
contendo ou nSo o nome de um suspei- 
to; outra contendo ou nao uma arma 
(revdlver, corda, faca, gas e veneno) e 
uma terceira carta contendo ou nao um 
compartimento da mansao (quarto, sala- 
tv, hall, estudio, salSo, cozinha e servi9o). 

Voce devera" investigar o crime indo 
para o local suspeito, at raves de jogadas 
com o dado eletronico (lancado pelo 
computador), e perguntando aos habi- 



OUflPTO 



iSTUDIO 



5RLR0 



HfiLLl COZINHA 5ERVIC0 



Qualquer um dos compartimentos da mansao 
pode ser o local do crime... 



tantes que encontrar se, dentre as cartas 
que possuem, esti determinada arma e 
determinado suspeito. 

Como o computador sorteia um lo- 
cal, uma arma e um criminoso e os re- 
tira do jogo, voce, por eliminafao das 
cartas que cada suspeito possui. ira, ine- 
vitavelmente, desvendar o crime. Por 
exemplo, se nenhum dos sete suspeitos 
possuir a carta contendo o nome MOR- 
DOMO, e" porque ele 6 o assassino; se 
nenhuma carta contiver a arma FACA, 
£ porque ela foi o instrumento mortal; 
e se nenhum dos locais explicitados nas 
cartas encontradas for o SALAO, pode 
con tar que foi \i que o crime ocorreu. 

DIGITACAO 

- Carregue o MICRO BUG na mem6ria 
do micro e crie uma linha 1 REM 
com 900 caracteres. Crie tarn be m 
uma linha 2 REM sem nenhum cara- 



ter (esta linha serve apenas para evi- 
tar problemas na listagem da linha 1 ). 
Digjte o Bloco Assembler e no final 
retorne ao BASIC. 

Digite a listagem BASIC do progra- 
ma, prestando muita atencao para 
nao errar, e grave uma copia em fita 
cassete para evitar aborrecimentos. 
Rode o programa e tente descobrir o 
misterioso assassino... 



Alberto Cezar de Carvalho 6 engenheiro civil, 
formado pela Universidade Federal de Juiz de 
Fora. £ professor de Processamento de Dados 
e de Fortran, respectivamente no Colegio Tec- 
nico da Universidade Federal e no Coldgio Po- 
litecnico Pio XII, ambos em Juiz de Fora. Le- 
ciona ainda Estradas e MecBnica dos solos no 
Colegio Te"cnico da Universidade. Possui um 
CP-200, no qual desenvolve programas nas 
Areas de Engenharia e Lazer. 

























Bloco Assembler 






16514 


2fl 


o- 


40 


?3 


01 


21 


16 C5 




16522 


01 


IF 


00 


09 


06 


IF 


4E 26 


16530 


7E 


23 




26 


10 


F9 


71 CI 


16536 


C5 


0b 


00 


09 


CI 


10 


E8 CS 


16546 


5 


80 


80 


-.0 


60 


80 


80 se 


16554 


30 


80 


80 


80 


80 


M 


80 se 


16562 


80 


80 


80 


80 


80 


80 


80 se 


16570 


80 


30 


80 


80 


80 


80 


80 8C 


16573 


2A 


0t; 


40 


2;< 


11 


Hf> 


40 01 


16586 


20 


00 


to 


B0 


rM 


0C 


40 23 


16594 


01 


21 


00 


09 


ED 


56 


0c 4e 


16602 


13 


01 


85 


02 


ED 


B0 


20 0C 


16610 


40 


83 


01 


KS 


02 


0U 


EB 21 


16616 


A2 


40 


01 


20 


00 


ED 


B0 : ; 


16626 


3F 


r>M 


00 


40 


23 


0n 


16 0E 


16634 


21 


71 


FF 


76 


28 


04 


30 F£ 


16642 


40 


77 


•>3 


00 


20 


F3 


10 EF 


16650 


C9 


-~ 


0C 


40 


11 


24 


41 01 


16653 


06 


02 


ED 


B0 


C9 


21 


24 41 


16666 


ED 


SR 


0C 


40 


01 


D6 


02 EC 


16674 


60 


C9 
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ACOMPUMICRO 

JATEMO 
MICROENGENHO 2. 

A Compumicro e a unica empresa do Rio que comercializa 
exclusivamente micros para uso profissional, em um amplo e conlor- 
tdvel escritorio. 

Com uma equipe de vendas formada somen te porprofissio- 
nais de inlormdtica, a Compumicro vem se destacanao como uma 
das maiores e mais bem preparadas empresas do setor. 

Isto se deve ao fato da Compumicro oferecer um atendimento 
altamente especializado, so comercializando equipamen tos de qua- 
lidade comprovada. 

Como um sucessopuxaooutro, a Compumi- 
cro coloca a sua disposigao o Microengenho 2 
O unico micro computaaor nacional totalmente 
compativel com APPLEUe americano. 

O Microengenho 2 gera caracteres em portu- 
gues maiiisculos, min usculos e acen tuados apartir 
do teclado. Pode terresolucaograficade 107.520 
pontosno video (dobro do APPLE II Plus). Eainda 
possibilita o uso de umaplaca de modem 1275A, 
operando em modo FULL-DUPLEX (cirandao) e 
HALF-DUPLEX (MicroxMicro) substituindo o modem 
extemo convencional. 

Venha a Compumicro e comprove est'e su- 
cesso pessoalmente. 

Compumicro. Omelhor em micro pelas 
melhores condigoes. 

SUCESSO 
PUXA SUCESSO. 






INFORMATICA EMPRESARIAL LTDA. 



End. : Rua Sete de Setembro. 99 - 1 1 . ° andar - Tel .: PABX (02 1 ) 224-7007 

CEP 20050 - Rio de Janeiro/RJ. 



NllieifiCS Nil CIMHTIIIIES 

Voce ndb pode deixar de possuir 
os se9uintes livros: 

MICROKIT 

LIHII SIHCIUI-TII2. 13, IS, CI2II E IITIIS 





cursod€ basic 


J 


«*j 


I %l 


MJ 


J 


SJ 


121 


XjjJ 


J 


u 


1SI 

»<X 1 

n 


WJ 



CIISI IE IISIC - Mil Crl 11.300,88 

Teoria, exetplos e exercfcios resolvidos, 
explanados e§ 10 aulas, oferecendo utaabor- 
dagei staples e direta. E'ut livro didotico 

CIISI IE IISIC - IIL.2 CrIU 396,06 

ProgratagJo avancada 

Cotpletenta o livro Curso de Basic - Vol.1 
e ensina coio desproteger progratas da linha 
Sinclair; copiar fitas e coto usar o Hi-speed 
no TK85 e CP208. 

LIHII NILE - eilUITIIEISeiH WHE/TI2III 




77 MINIMIS INI LIHII HUE Crl 16 1M 88 

Atroves de JOGOS e PROGRAHAS EDUCATIVOS 
voce sera induzido a pensar, resolver proble- 
■as, e totar conheciiento de coto podera' 
usar bet o cotputador, divertindo-se 1 

IIKIINIS CIMEICIIIS II LIHII HUE 



Para Pequena-Etpresa 

Troz a listaget cotpleta 
coto Hala-direta, Controle 
Contas a receber e a pagar. 
agorai 



Crl 17380,99 

dos progratas 
de estoque e 
Faca seu pedido 



ITEHC.il: escolha aqui sua opcao: 

LJCurso de Basic-Vol. 
~^77 Progratas 



~* 



Q 
a 



Curso de Basic-Vol.2 
Progratas Coterciais 



Note. 
End 



Cep Cidade. 



Estado 



Envie ui cheque notinal para ATI Editora Ltda. 
Av. Presidente Wilson, 165 grupo 1218/1216 
Cep 26836 - Rio de Janeiro - R.J. 



Cheque Bonco 



Valor 



SUPER DETETIVE 



Detetive 



= *=EM 

18 DIfifl 7 

16 FOR N = . TC 7 

17 LET ■'»= 6613874" 

18 LET A -.» - .hL 1X9 IN) ) 

19 NE • 

kk 5RUE C'ETETlul" 

k- FR5T 

24 GOSuE 3000 

c5 3L0U 

30 Lr y =i~ 

40 G05UE :C 
50 COTO 150 

DR ' * = 1 TC 3 - 




90 FOP 1=1 TO K 
110 RRNC U5R 16514 
120 NEXT I 
--C FOB : . = 1 TO 6 
135 RRNC -z- 16578 
140 NEXT N 
PETuP' 



UaUAfl 


o computador MBf 


I- c 


; R ARMA DC ZH1 


: E 


5RU, 




?RBE S . 3CE - 3* 


_ IN IN* 


DE9CQBRXR E5TE5 DP.0 


I PERQUN- 


( -. ; -- — - ; : =-= : 







If: 305UB 155 
::i SOTO 175 

AND U5P . 
162 PRINT a- ji 0i 

155 -E' ■ =0 

:~c :-05jc so 



....ske: 
■ :he DRLflS 
M . 



PODEPPO JOGAR DE 
DORES 5 5 



fS MOTOPIS 
Rfl 5LI" 
MRPFJM E D I 



195 F 

196 NEXT N 
19e G05UB 158 

c It 



:EBfi IN'.'ES- _ ::-a; S~ICAME 



>10 

S3t 
S3S 

• 

S3e 

240 

842 
844 
245 
250 
25 = 



150 



PRINT 1 CANTOS JOGADORES 

INPUT I 

I c I 5 THEN GOTO S36 

PRINT RT 13 .22, I 

FOP N=l TO 20 

NEXT 

DIM OS ■ I 20) 

DIM c : 

LET OUPNT=; 

CLS 

PRINT 




= 55 

260 
252 
CSt 
254 
266 
255 
270 
871 

2-4 
276 
509 
510 
511 
512 
514 
516 
518 
520 
522 
548 
550 
552 
554 
556 
558 
560 
562 
570 
5^1 
572 



r 0R N = l TO I 
INPUT OS 



PRINT 



CHRS (N*156i 



N 
FOR N=l TO 20 
NEXT N 

oosue 

PRINT 

FOP N*l "TO- 
NEXT N 
CLS 

DIM SS'705' 
FAST 

FOR N = l TO 705 
LET ;s CN) ■" " 
NEXT N 

FOR N = l TO 32 
LET 5* iN' = W" 
LET 5»tN+672) ■"■" 
LET SS IN+320) =* ■ 
NEXT N 

FOR N»33 TO 641 5TEP 
LET SS IN) = I " 
LET 5$ IN+31) =-J" 
LET 5S (N + 10) = "| " 
LET St (N*15) ■"■ " 
-ET 5S iN+23) ="1" 
NEXT N 

LET 56(337) =" '• 
FOP N«331 TO 335 
LET SS (N) =" " 



38 



573 NEXT N 

576 LET SS i 304 i a" " 

577 LET =s 1878) *" " 
580 LET 5$ '240: =- " 
532 LET SS <280i =" " 
563 LET :i ii" = 
584 LET SS'619) =" " 
536 LET SS i624i s" " 
538 LET 5S < 568 > *" " 
590 GOSUB 598 

592 GOTO 610 

598 FAST 

600 FOP N=l TO 704 

602 PRINT St 

604 NEXT N 

605 PRINT PT 10,0, "I 1 ". AT 10 31 
1 RT 10,10 f RT 10 15 T RT 

10 2: 1 

606 GOSUB 2000 

609 RETURN 

610 RAND USR 16651 

611 RAND USR 16663 

615 DIM AS '5 = 

616 LET AS il> ="REUOL'.'ER 

617 LET R» (2) «"CORDP 

618 LET AS ' 3' = 'FACA" 

620 LET «S i = GAS" 

621 LET R»(5i s •UENENO" 

622 LET - bIMT iRND*10i 

623 := Y =C :-■ r 5 THEN GOTO 62 
2 

625 LET AS 5 =-J \ 

687 LE T RtCK) ■ NAO TEM" 

626 i.ET E>K 

630 C IM LS '5,8i 

631 LET _$ l = OURRT 

632 LET LS '2' = 5ALA-TU" 

633 _E~ _* : = HALL" 
534 _E~ _J 4)1. E5TUDI0" 

635 LET LS '5' = Sh^AO" 

636 LET _* 5 ■ COZZNHR" 

637 LET L |(7 = 3ERUIC0" 

638 ^ET KsINT 'RND*10i 

639 IF * 4 OR K>7 THEN GOTO 5 3 
z 

640 LET _$ B =_» • 

642 _E T _S -■ = NRG TEM ' 

643 LET . =- 

648 DIM Is 8 . 101 

646 LET CI 1 = BLANCHE" 

54- LET r % z - ;.£_&; 

648 ^ET CS '3 1 = LflNE" 

649 LET CI J- = HAPFIM" 

650 -E"' C»l5)« HORDOMO" 
551 LET Ct(6)> MOTORIST* 
55£ _E T Cs ~ z CAHAREIPA" 

55- LET t =:-.' r RND + 10* 

654. Z c ' 10 OR » 5 THEN GOTO 65 

*5 55 LET :s z =;s - 
55- let ~s=: s - 

558 LET T«* 

560 LET :$ - = NRO TEM" 

665 DIM l ~ 2 

667 FOR L«l TC 5 

668 LET 5(R(|. : «L 

669 NEXT L 

6 70 LET 5(R(e D »0 

671 LET 3 ;fl - 1 =o 
5~5 B 0P L=l TC - 
B7C _ET SlAlL' 2 «L 
630 NEXT l 
684 FOR L=l TO 7 

636 LET : a _ ; -_ 

637 NEXT - 
639 FOP ' 

691 IF : ■; : =£ THEN LET 5(N.l, 
=0 
693 IF S'N.2i*U THEN LET SIN. 2' 

20 

695 IF 5 cm : »t then lE _ B • 

s0 

697 NEXT N 

710 DIM U '5' 

-.5 DIM . 5 

-20 _ET 11=0 

"55 FOB N«l TC 5 

730 LET U IN' =C 

-32 _ET ■. [N =0 

735 NEXT N 

738 GOSUB 900 

739 RRNC U5R 16651 
"40 GOTO 3200 

801 CLS 

802 PRINT AT 10,- HEK9 TAB 
20, AS 16" , TAB 20.LS'8);TAB 20 Is 

803 GOSUB 890 
810 FOR N=l TO 7 

812 IF CS'N. TO 7'="NA0 TEM TH 
EN GOTO 830 

814 PRINT AT 10,5. CS IN) 

816 GOTO 840 

830 PRINT AT 10.5, CS 18) 

840 IF SlN.li =0 THEN PPINT TAB 

15, NAO TEM 

842 IF SiN.li >0 THEN PRINT TAB 
15 SS 

845 IF 5 IN. 2) •,© THEN PRINT TAB 
15, LS '5 IN .5 

846 V 3(N 8) =0 THEN PRINT TAB 
15. NAO TEM" 

847 IF 5 IN, 3) -0 THEN PRINT TPB 
15.CS-SIN.3) ) 
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■0 'HEN PRIr;- 

is 

860 GOSUB 590 

870 NEXT u 

^5^RINT^T^0^^"""*"""""""""""" 



2. ~E 



GUEBROU A C 
PARA . 



I M 



=30 STOP 

835 PRINT AT 21 . := HU -" 2 
: 28 Ent 

890 IF INKE * = • THEN GOTO 365 
:92 :_r 

ruRN 

905 LET 

'0 QUANT 
2 LET C 'N =:• '04 

=0 THEN GOTO 910 
920 IF 50(C(N>+1 THEN GOT 

: 910 

925 LET :5 : N »1> xCHR* 

930 PRINT hT INT (0(N '321 

-INT I (C(N> -1> /32> *32 CHR$ N + 15 
6) 

B32 NEXT N 

933 5l0u 

934 IF INKEY0- " THEN GOTO 93* 
955 RETURN 

937 SOSue 2563 

938 PRJNT - 5 J , 





INPUT • s 




44.0 


i c «s g -hen goto 


950 


942 


IF j ;: aj then GOTO 


3200 




let '. :: =i 




945 


J5R .5663 




rl: 


INPUT P$ 




= 4 ■ 


S05UE 2100 




= 4: 


SOTC 952 




959 


_£-" c =0 




r: 1 


GOTO 24.00 






SPIN h" 15 5 ■■»*■« 





■a- then goto a:i 



954 IF INKEY$« • THEN GOTO 954 

955 I- INKEY»= 5" THEN GOTO 220 


:. IF INKEY0»"6" AND DlIU 073 

THEN BOTC 2250 

95~ IF ZNKEY|> 7' AND DlIIl 34 
THEN 30TO 2230 

958 IF II 


960 I c INKEYi "5" AND INKERS 

8 ANC 1M E i 7 RND IN* 5. S 
"8" THEN GOTO 954 

255 RANC USB 15663 

B7B PRINT BT rNT - -- 3a - - 

: -INT : :; 
9~; let :$:::♦:= 

9-4 : c : :: =o -ien boto 95* 

980 IF 80(0*1 THEN GOTO 2 
370 

952 LET :S --- bCHR| 11*156 

908 LET : :: 

990 PRINT AT IN~ CHI '-'=- -" I 

: : : - J » : 

1*156 

9 94 30SUE =000 
995 RRNC .1- 18051 

1000 GOTO 954. 

2000 PRINT RT 5,9 BURRTC RT 5 

11 ->p__ RT : 18 5RLR-TI AT 4 

24 ESTUl 
£S.C PRINT RT 15 2 5ALR0 AT 13 

:: HRLL RT 15 18 COZINHR AT 

15 94 :£= . ::c 
2040 RETURN 

2110 Dta 

2112 PRINT h- e 9 
9| I _-" = 

L. 9 :"> 

RT 1J I 



■■■■■■■1 AT 7 

I I RT 

AT 10 J | | 

I AT 12 ,9. U. 

2115 _ET R«INT RN0«6 -- 

2116 IF R>8 THEN LET R=6 
£120 GOSUB <R*10) +2120 
2128 PET 

2130 PRINT RT 9 12 'l" 

2.40 PRINT RT _ 14 ■" RT 11 10 

2145 PETURN 

4150 PRINT RT 
• RT 11 14 | 
2155 RETUI 

2160 PRINT AT - | 

.10."l ■ 

21:5 RETt 
21-0 PRINT AT - , 10; 

10. ■ RT 11,10;"! 

21~5 RET 

2130 =p: 10. ■•■_ W_, RT 9 

10 "■ I' -' .: Kvi ■ 

2135 RETURN 

22 10 _£T |>,C (IX) -1 

2220 LET KxK+1 

2230 IF K)R THEN GOTO 2340 

2240 GOTO 965 

2260 LET D=C III> +32 

2270 GOTO 2220 

2235 uE" r C -'. II -32 

2295 SOTO i.l^.<2 

9: .5 let : = ■: ill +1 

2320 GOTO kZM 

2340 LET K=0 

2355 IF INKEY0*" ' THEN GOTO 2355 

2357 CLS 

2360 GOTO 3200 

2371 CLS 



10 ■".AT 9,12. 



|";RT 11 



\ \ 







■ IF IM- E. $= THEr 

2382 LET C =0 

2385 GOTO 3200 

941C :_r 

2415 =:= <»i 

241t PS INT fl 



: _ f 

24 3= I- 5 U E 9550 

Li>>_i_ c '.=. r r -^ l c 

9445 INB .- -J 

2446 IF LEN W» 3 THEN GOTO 2440 

2455 FOB ■ =1 T _ 

2456 IF U9(l> ■CBIX.ll THEN LET L 
ETRA3«LEN U» 

245- := s i :»ix,D THEN GOTO 

2460 
2460 FOB L«l TO LETRA5 
2455 I c $ L :»»X,L1 THEN 0OTC 
2 45 

NEXT L 
24-2 PRINT RT 4,11,080 
24-4 LET 
2476 GOTO 2490 
2480 NEXT ■ 

24 51 I c U8 :« f TO LEN U»» THE 
N GOTO 2440 
2482 PRINT hT 4 .; . $ 

_5- J«T 
• 490 - = :••- -~ 1- 



2801 IF Zf<>O0(8, TO LEN ZJ TH8 

N GOTO 2700 

2S05 PRINT AT 2010. 2% 

2306 IF Ut»C« B TO LEN U$i THEN 

LET r=9 
2S0- IF •» 00(8, TO LEN U*J TH1 
fj LET r=T 

2611 FOR N»l TC 15 
2812 NEXT ■• 

013 



2S16 PPIN' RT 9.8 J.AT 11.5 08 

RT 13 5 ;« 

251- IF ; THEN _E~ DRRTRa 

" RATA * ' 

I i 20 IF 5 . 2 >S THEN LET DRRTRa 

■ RrTA - ' 

: =Z THEN LET CARTA" 

PRINT RT 15.0. •' : E5TB3 



2529 PRINT ■-- 15 19. i"NENHUM Z~ = 

:-=--=0 - UH ITEM. RNC 

CARTRsl - DOIS ITEN5." AND :RB 

TA«2 - TRE5 ITEN3. ' AND DRRTR»3 

2830 PRINT AT 21.0," UA [ 

NOOU CRIME 9 • 

2832 Input -s 

2834 I c ■«= N 'HEN LET C =0 

9;25 1= ■»= N THEN SOTC 3200 

2836 I - I 

12 1 p= IN- - ~~ 10.0 





2 4 9 5 I 

2425 I- _5". S : THEN 30TC 2495 

2505 FOB • =- TC 5 

2505 1= ( 1 =-$ • 1 THEN LET L 

ETRAS»LEN S 

2507 IF s 1 Rt(X.l) THEN 0OTC 

2550 
2510 FOR L»l TO LETRAS 
2515 IF Y0(L R0(X,L) THEN GOTO 

2550 
2520 NEXT _ 
2525 _E- 

25.0 PRINT RT i~ 10 ^1 ■ 
2525 SOTO 2-00 

2550 NEXT > 

2551 1= S R0(5. TO LEN t TnE 
N GOTO 24 90 
2555 PRINT AT .5 
2555 LET =E 
25 5 f SOTO 2-00 
9 _5 j:_0_ - = : I • ■ ~_ 

!555 _ET i_I'. = :-.- !X • II 

2555 _et ::_ = ::i-; i : -i 

32 -52 
1 = =~ 1= LIN =1 3ND LirJ =20 THEN 
IF COL =12 RNC :0L.=15 THEN GOTO 

25z" 
£566 IF LIN =1 RNO LIN =9 THEN G 
05U8 9 5~2 
25-0 1= LIN =11 AND LlN<=£0 THEN 

:-:-: 2530 

2571 =E-URN 

25-2 z= ::_ =. rnc ::- «ia then 

LET Zi- QUARTO" 

25-4 IF COL =1" AND C0L<=23 THEN 
_£- :*= SALA-T 

25-e IF ::_ =27 and col<s31 then 

LET ■!$= ESTt 

2573 PET. 

z I s ::_ =1 RNO ::- =10 -- 

LET i$= -SAlAO" 

2532 1= DOL =1" AND COL =23 THEN 

LET I j= 'OOZINHfl 

2534 IF COL =25 AND COL ■ =31 THEN 

LET 0«= '5EP>.'IC0" 

2536 RETURN 

2537 LET :$= HRLL" 
2536 RETl 

2539 LET _5-RA5=LEN Q% 
2590 FOR ■ =1 TC " 
2593 FQP l=1 TO _ETPA5 

2600 IF flliL L*i-.L> THEN GOTO 

2690 

2810 NE*T L 

2620 LET 

2630 PRINT AT 10.11.LJ ■ 

2540 SOTO 2698 
2690 NEXT ■ 

2695 PRINT AT 10.11. OS 

2696 _ET i 
2693 RETURN 
~ -00 PRINT P ~ ; c 

"10 INPU" 2% 
2720 IF LEN 2$:3 THEN GOTO 2710 

2730 FOR X=l TO 7 

2731 IF Z$(l) ■C0(X,1! THEN LET L 
ETRR5«LEN 2% 

2738 IF Z0(1) :» • i: THEN GOTO 

2500 
2740 FOR L=l TO LETRAS 
2750 IF ZIIL :$ ■ Li THEN GOTO 

2500 
2-60 NEXT L 
8770 LET Z = - 

2-30 PRINT AT 20,10," ",001X1 
2790 GOTO 2810 
2800 NFVT - 



2:5 InP:jT ;$ 

1:^1 PRINT RT 20.15.0* 

2 £ 5 " I l = 

2854 IF C*^3 TO LEN Z$ =2« RNC 

R0(8 TO LEN ft - « RND l»(8 ^ 

LEN 90) sOi THEN GOT O 2860 



4A0 INUESTI- SOU CORRET 
E POOERA 



3.0. "*♦ ' .0*'.II' . " 



2862 GOTO 3309 

3002 ^ET f=IN- 

3010 FOR N«l TO - 

3020 LET 

3030 NfiXT N 

3040 FOP •• = : TC - 

3050 IF P. N) =0 THEN GOSu= J070 

3055 NEXT 

3060 GOTO 3130 

20-0 fqp M =l rn 7 

3080 FOB • =1 TO - 

3090 IF R(X)»M TmEN GOTO 3120 

::oc NEXT ■ 

3110 LET B '. =- 

3115 GOTO 304.0 

3120 NEXT H 

5 130 PE- 

3200 I-: 

3210 LET IIxII+1 

5220 1<= II BURNT THEN GOTO 38T0 

3230 IF . II -HE N GQTQ 3210 

3240 PRINT p- 10.0, ■ ■■■■■■■■■■■■— 
"■■■■^■■■■■ , ^"" AT 12.0.J1 



: 
, AT 14 



21SC CRINT AT 12,9, OS II 

HtC SOTO 937 

3270 LET 11=0 

:2-2 FOB N=l TO OUANT 

3874 LET y (N< =0 

i^-e NEXT N 

3230 GOTO 3210 

3300 FOR N = l TO 4.0 

3301 NEXT N 

3302 LET U(II) «1 

3303 GOSUB 3350 

3304 FOR N=l TO OUANT 

3305 IF U (N i=0 THEN GOTO 3200 

3306 NEXT N 

3309 CLS 

3310 PRINT AT 12,0, "OUER UOGAR 
UTRA PART IDA (5/N 

3320 INPUT Z% 

3325 IF -*=■!■ • THEN CLS 

3330 IF 2*="5" THEN GOTO 23 

3340 GOTO 800 

3350 LET S»'C 'III +1> = 

3355 RAND USR 16663 

3360 PRINT AT INT lC(II>/32> 

I) -INT ((C(IX)-l) -321*32," 

3365 RAND USR 16651 

3370 RETURN 



X 
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Se voce tern um micro da linha TRS-80 I ou III, com 16 ou 48 Kb de RAM, 
teste sua habilidade combatendo os terrfveis Fagocitons 



Dr. Kasklin e os 
Fagocitons 



Rui Ribeiro de Bastos 



Doutor Kasklin e os Fagoci- 
tons e' um jogo em BASIC 
de aproximadamente 4 Kby- 
tes, sem REMs, com tres pe- 
quenas sub-rotinas em linguagem de ma- 
quina. Estas sub-rotinas posicionam-se 
no topo da mem6ria do seu micro e ser- 
vem para criar efeitos especiais. quase 
impossiveis de serem produzidos pelo 
BASIC devido a sua lentidao. 

A primeira sub-rotina (A = USR (0 + 
256 * N)) tern por funcao a emissao 
de sons pela porta de saida do cassete, 
aceitando em BASIC um valor nume'rico 
que determina a nota a ser tocada e deve 
estar entre e 127. A segunda (A = USR 
(1)) inverte todos os caracteres graTicos 
do vi'deo e transforma os espa90s em 
branco em espacos inversos. A terceira e 
ultima sub-rotina (A = USR (2)) vai de- 
crementando cada cardter atd que todos 
sejam caracteres de espaco (CHR$(32)), 
dando a impresslo que o vi'deo esta se 
derretendo. 

O objetivo do jogo 6 a eliminacSo do 
maximo de invasores - os Fagocitons - 
possivel. Voce inicia o jogo com quatro 
vidas. Ganha uma a cada 10000 pontos 
completados e perde uma a cada Fagoci- 
ton que aterrissa ou quando sao dispara- 
dosmais de cinco tiros sem sucesso con- 
tra o mesmo invasor. Observe que seu 
canhao anti-ae'reo de laser tern movi- 
mentos mais amplos do que os dos inva- 
sores, isto 6, voce pode pular de um lado 
para outro do vi'deo, enquanto que os 
invasores limitam-se a descer aleatoria- 
mente. 



Cada invasor ao ser destruido tern 
um valor especifico determinado pelo 
ASC (primeiro cardter), decrescido de 
duas vezes o numero da linha em que 
foi eliminado. A cada jogo e criado um 
novo campo estelar e ao seu final sao 
apresentados os cinco mais altos escores 
e, se for o caso.acrescentado um melhor. 
Quando ninguem esta jogando sao mos- 
trados os melhores escores ou a apresen- 



tacSo do jogo. Para facilitar o programa 
estd numerado de 10 em 10, o que per- 
mite que se utilize, para sua digitacao. o 
comando AUTO. 



Rui Ribeiro de Bastos 6 estudante de Enge- 
nharia Metalurgica da Universidade Federal do 
Rio Grande do Sul, e ha" um ano tern um mi- 
cro JR Sysdata no qua! trabalna em BASIC e 
Assembler. 



Dr. Kasklin e os fagocitons 



10 'M»M«IUM*M*M*M*M*M»MftN«M««MM*IMM*M«M«M*Mfttt*M«M*M»M*M«M«M«M«H 

20 'M* Dr. Kasklin e os fagocitons *M 

30 'M« POR : Rui M. Ribeiro de Bastos M» JOGO »M 

40 '** Rua Felipe Camarao No. 230 apto 30i H*W«t»#H*l»*H»!»*M 

50 '»♦» CEP 90000 PORTO ALEGRE R.S. BRASIL H 05/05/1984 «K 

60 'M«H«M«M«N»N«M*N»M«M*N«H*tM«M«H»H*M«M*H*M<»M«M*M«M«HKM»N«N«M*M 

70 CLStPRINT"— «««««««*»«* ESPERE UM M0MENT0 EST0U TRABALHANDO * 

»###»##*«# — ":GOT056O 

80 CLE AR66A : D i MG < 50 ) , C ( 30 ) * B ( 1 ) -36400 : B -B < 1 ) : BS ( 1 ) = "R u i . " : G0SUB 5 

00 

90 RAND0M:F0RK«lT010:C*<K)=CHRl(RND(4>*16+112)+CHR*<RND(i6>*4+12 

4) tF0RI=iT04:CS(K)»Cl(K)+CHRl<RND(64)+127):NEXT:Ci(K)=Cl<K)+CHR* 

<RND(16)#4+i24)+CHR*(RND(4)*16+112)+CHRl(26)+STRING%(9,24) 

100 F0RI"lT010«CS(K)»C*<K)+CHRt<RND<64)+127) :NEXT :C*< K )=C*(K )+CH 

R*<26)+STRINw*<9,24)+CHR*(RND<4)+127)+CHR*<RND<16)+127):F0RI»lT0 

4 1 C* ( K ) -C»< K CHRS < RND ( 64 ) + 127 > : NEXT 

110 C*<K)=C*(K)+CHRt(RND(16)-fl27)*CHR»<RND(4) + 127) J NEXT 

120 I-USR(2):G0SUB620:G0SUB520 

130 PRIN'ra400,"« Dr. Kasklin e os Fagocitons «"3652,"USE "CHR*<6 

0)-"- PARA MOVER CANHAO PARA ESGUERDA"3588, "USE -"CHR»<62>" PAR 

A MOVER CANHAO PARA DIREITA. "9530, "USE <ESPAC0> PARA DISPARAR" 

» !F0RK»lT06:PRINT3K«6+777 r At(K) jiNEXT 

140 S»0:PRINTa912,"PRESSI0NE <ESPAC0> PARA COMECAR"; «F0RP-0T050t 

G(P)-UNEXT 

150 F0RI=0T015:A=USR(1):NEXT 

160 F0RC=0T0400:A*=INKEYi:PRINTa923 f " " { tG0SUB600tPRINT3923 

. "ESPACO" ; :IFA*=""THENNEXT:A=USR<2):G0T0390ELSEIFA*<>" "G0T0160 

170 Q=0:L=O:CLS 

180 F0RI=0T030:C(I)=RND(896)*64:NEXT 
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190 PRINT30," "S»i0" "STRINGS(4-L ,65)CHRl<31 )328,K%356,B • :X=RND( 

6>:F0RI=0T030:PRINT3C(I),CHR*<46+(I)20)*4),»NEXT 

200 X*-A»(X> :P-RND<55)+965:M=RND<5O0+5 

210 D»0:F0RJ«lT014:A-USR<256«J«X)iM-M+RND<7>+60iIFr1<64»J+4M-J#64 

♦5 

220 IFMXJ+l)*64-6M«(J+l>»64-7 

230 F0RH-iT02iN-PEEK<14400)»IFP>1014PRINT3i014," "?:P-960: 

ELSEIFP<960PRINTaP," ";«P-1014 

240 PRINT3M,X*|3P,DS»:IFNAND0NEXTELSEIFNAND128G0SUB460ELSEIFNAND 

32P-P-2ELSEIFNAND64P-P+2ELSEIFNAND4THEN120 

250 NEXT:PRINT3M,STRING§<4,32> t JNEXT 

260 FOR I-0T09 1 A = USR < 1 ) : GOSUB 600 1 NEXT : L = 1. + 1 

270 PR INT3i,S«i0f STRING* < 12-L, 32) , :G0SUB610 

280 0=INT(S»iO/10000) I IFS*10< 10000G0T0300 

290 IFS«10X0*10000)L-L-G<0) :G<0)=0 

300 IFL<4G0T0190 

310 F0RR-0T025:A=USR<1) :G08UB600:NEXT 

320 A=USR<2> 

330 IFB(5>>-S#10G0T0390 

340 F0RI=5T01STEP-i 

350 IFB(IXS»10NEXT 

360 F0RJ-5T0I+2STEP-1 

370 B(J)-B<J-l)iB*(J)-B*<J-l)iNEXT 

380 B(I*i>-S*10iBl<I+i>-'"'iPRINT369,"N0U0 SCORE ENTRE OS CINCO M 

ELHORES M ! "3900, 5 i INPUT"N ONE (4 LETRAS ) ",B*< 1 + 1 ) :BS< 1+1 ) 

-LEFTi<BS<I+i>,4> 

390 CLS:PRINT327,K*3217,"SEU SCORE :"S«10333i , "COLOCACAO" ," SCOR 

E","N M E"«PRINT 

400 FORI=1T05:PRINTTAB(14)I,B<I>," "B*(I):NEXT 

410 PRINT3909,"V0CE QUER JOGAR DE NOVO ? S i »<S)/Nao(N)"j 

420 F0RC»0T04000iC*-INKEYH IFCl-""NEXTiG0T0120 

430 IFCS="S"A»USR<2):G0T0i40 

440 IFCS-"N"A-USR(2):F0RY-0T0127:A=USR<256»Y):NEXT:G0T0120 

450 G0T0420 

460 D«D+UIFD>5GOSUB610tGOT0260 

470 FORE-P-61 TOMSTEP-64 s PR INT3E,CHRS< 94 >-:I=E: A-USR (8960): NEXT 

480 IFI>=MANDXM+4G0T0530 

490 F0RE=P-61T0MSTEP-64:PRINT3E," "; :NEXT:G0T0610 

500 D%=" "+CHR*(174)+CHR*(176)+CHRS(157)+" "s A*< 1 >=CHRl< 155 )+S 

TRING*(2,i40)+CHR%(167):A»(2)=CHRS(173)*CHR*(166)*CHRS(i53)+CHRt 

(158>«AS<3)=CHR*<152)+CHR%(i67)*CHRS(i55)+CHR*<i64>iAf <4>=CHRf <i 

67>+CHR*<137)*CHR*<134)+CHRS<155> 

510 A%(5>=CHR%(i66>+CHR*<i72)+CHR*<156>+CHR4<i53>:AS<6)-CHR*<156 

>+CHR*(iB3)+CHR»<187>*CHR*<172):K*-CHRS<i57)+CHR%<145>+CHR*<158) 
♦CHR*<148>+CHR*<i86)+CHRS<129>+CHRi<i57)+CHR*(i45>+CHR4<181>+STR 

INGS(2,170)*CHR4(137)+CHRf < 149): RETURN 

520 F0RF"0T0127iSET<F,0)iSET(127-F,47) : A-USR (256* INT ( <F+5)/5> ) :N 

EXT:F0RF=0T047:SET<0,47-F>:SET(127,F>: A-USR <256»INT<<F+140>/5>)« 

NEXTJRETURN 

530 S«S+<ASC<X*)+J«-2)/10:lFB<S#10B*S»10 

540 PRINT3i,S«10" "STRINGS< 4-L, 65) ;356,B 5 : A-USR ( 1 ) : A-USR < 1 ) 

550 F0RK=lT010:PRINT3I-67,C*(K)f :G0SUB600:NEXT:G0T0280 

560 P0KE-136,9:IFPEEK<-136)=9I=-136:G0T0570ELSEP0KE-16536,9:IFPE 

EK (-16536) =91— 16536 :G0T0570ELSEI«32665 

570 PR INTI 1 1-65536+ 1 + < 1-32665 >*65536-l:P0KE 16561, 1-INT< 1/256 >»25 

6 :P0KE16562, INT ( 1/256 ): I-I+i : IFPEEK < 16396 >< >201THENDEFUSR=-65536 

+ 1-65536* ( 1=32665 >ELSEP0KE16526 , I-INTC 1/256 >*256:P0KE16527, INT (I 

/256) 

580 CLEAR400:AS-"CD7F0A7DFE002821FE012831FE02C021003C010004 16007 

EFE20280316FF35230B78B120F2BA20E7C90E20443E01D3FF10FE443E02D3FF1 

OFEOD20EFC921003C1100047EFE2028 121 730081 738052F1F3F1F7723 IB 7AB 32 

0EAC936BF18F5" 

590 I -PEEK ( 16561 >+PEEK ( 16562 >«256+i : I-I+( I >32767)*65536:F0RK=0T0 

93:KS=MID*(A»,K*2+l,2)«B*-LEFTS(KS,l)»XS-RIGHT»(K*,i):M=ASC(B5>- 

48+<B*>"9")«7:L=ASC<XS>-4S+(X*> ,/ 9")*7:P0KEI+K,M«16+L:PRINTB*XS" 

"• : NEXT: POKE 16396, 175: POKE 16397, 201 :G0T08O 
600 A-USR(RND(127)*256):RETURN 

610 PRINT3M,STRING1(4,32);3P,STRING»<7,32);:RETURN 

620 REST0RE:CLS:PRINT317,"PRESSI0NE <CLEAR> PARA C0MECAR":M-310« 
G0SUB500 

630 FORI-lT026iREADP:PRINT3P,Dt; 

640 F0RE-P-61 T0MSTEP-64 IPR INT3E ,"."?: A-USR < 6400 ) : D-E : NEXT 
650 F0RE-1T03: IFPEEK < 14400 >=2CLS:G0T0140ELSEREADK :PR INT3D-64«E ,C 
HR%(K)CHRS(27)CHRf (8); 

660 NEXT:G0SUB600:G0SUB600:F0RE=P-61T0MSTEP-64:PRINT3E," ", :NEXT 
: PR I NT3P , STR ING* ( 7 , 32 > • : NEXT 

670 PRINT3105,CHRl(i36),:F0RP-31T01STEP-i:PRINT3P+335,CHR*(140), 

:G0SUB600: NEXT: RETURN 

680 DATA973, 186, 170, 171, 974, 128, 166, 128, 975, 137, 128 ,152, 976 ,176, 

128,131,988,186,170,171,989,128,166,128,990,137,128,152,991,176, 

128,131,978,186,170,160,979,144,140,134,980,160,140,137,981,181, 

149,144,998,186,170,171,999,144,128,129,996 

690 DATA184, 128, 128, 994 ,176, 128, 128, 995, 176, 128, 128, 993, 186, 170, 

171,1000,186,170,171,1001,128,130,144,1002,128,164,128,1003,181, 

149, 151, 984", 176, 140, 131, 985, 176, 140, 131, 983, 137, 137, 152, 986, 134, 

164,164 
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Ser esperto e ter um pouco de sorte sao os ingredientes exatos para fazer 
de voce um vitorioso, neste interessante jogo para a linha Sinclair 



Lance os dados e... 
boa sorte! 



Marco Sergio Furtado Valeriano 



Este e um jogo relativamente ii- 
pido, com regras bastante sim- 
ples, que exige sorte e uma boa 
dose de esperteza do jogador. 
Foi inventado pelos marinheiros nor- 
mandos e por mais de duzentos anos, o 
Fecha a caixa, que na lingua ingle sa 
chama-se Shut the box, tern sido um dos 
favoritos entre os marinheiros de varias 
regimes litoraneas. Embora o Shut the 
box seja normalmente disputado por 
duas ou mais pessoas a dinheiro, pode 
servir como jogo de paciencia a uma s6 
pessoa. Nesta adapta?ao para micros, o 
jogo foi programado para ser disputado 
entre duas pessoas. 

objetivo 6 que cada jogador cubra 
a maior quantidade possivel de nume- 
ros, de acordo com os lanc,amentos dos 
dados. Deve-se dar prioridade a cobertu- 
ra dos numeros de maior valor, pois os 



numeros nao cobertos serao compu- 
tados negativamente. 

Os jogadores escolhem em comum 
acordo quern iniciara a partida (no caso 
o jogador 1 ). Quanto as jogadas, o joga- 
dor lan9a os dois dados quantas vezes 
forem possiveis, para dar continuidade 
ao seu jogo. Apos o lan?amento dos da- 
dos, o jogador soma o total obtido e 
decide quais os numeros da tabela que ira 
cobrir, desde que a soma destes numeros 
coincida com a resultante dos dados (na 
tabela estao disponiveis somente os 
numeros de 1 a 9). Por exemplo: no 
caso de ser alcanc^do um total 10 nos 
dados, o jogador podera cobrir uma das 
seguintes combinacoes de numeros: 9 e 
1 , 6 e 4, 7 e 3, 8 e 2. jogador faz um 
novo lancamento e repete a operacao 
anterior em relacao aos numeros desco- 
bertos, jd que todos os outros estao blo- 



queados. Se ele conseguir formar uma 
nova combina9ao equivalente ao total 
dos dados, cobrira os numeros corres- 
pondentes e continuara" jogando. Caso o 
jogador tenha coberto os numeros 7, 8 e 
9, ele podera optar por utilizar somente 
um dado para os lanc^mentos seguintes. 
Quando o total dos dados (ou de um 
dado) nao permitir uma cobertura cor- 
respondente, o jogador perde a vez. So- 
mam-se os numeros que sobraram des- 
cobertos, considerados negativos, e en- 
tao o outro jogador passa a lancar os 
dados. jogador que atingir primeiro 
ou ultrapassar os 45 pontos negativos 
perde o jogo. 



Marco Sergio Furtado Valeriano tern 21 anos 
e cursa o 49 periodo de Ana" Use de Sistemas 
na UERJ. Fez cur so de BASIC no I BAM e no 
Senac e possui um TK-85. 



Feche a Caixa 



10 REM **FECHE fl 
20 DIM J$(2,10) 

30 DIM P ■.! 
40 PRINT 
'50 PRINT Tftfi 2 



50 z-z-r 

;TRB 
PRINT 



the : 

23; "JOGADOR 1 

ThB 3; 



CHlXHtt 



^■FECHE R Cfl 




50 PRINT ThB 

I ■ ■ 

90 PRINT 

■■■ 

100 PRINT 

110 PRINT 
. ";TPB 13. 

120 PRINT 

130 PRINT 



ThB 


^■■^■■B 


- " 


•JOGRDOR 2" 


^PF; 


3; "■" ;TPB 21. "1 
3; "■'• ;TflB 5; "DflDO 


TAB 


'DHL 


>02: " : TPB 21.: "■" 


ThB 


3; '•■" ;TRB 21; "■■' 
3; "l" ;TRB 5; "50MP 


ThB 



" ;TRB 21; '■ 
140 PRINT TAB 5 
150 PRINT ThB 5 



160 PRINT ht 13,1 
; "PONTOS i -' " 

170 FOP. K = l TO 2 

150 PRINT PT 2i,0;"DIGITE NOMt 
DO JOGhDOR " ; K 

190 INPUT J$ - 

2O0 L.ET P(K) =0 ^ ,. 

210 PRINT PT 13+K , 1; J$ i.K.i ; HT 1-3 
+K , 13 . P f. K ) ; PT 3*K . 23 ; $ t K J 

£d0 NEXT K 

225 GOSUB 1010 

230 LET 1=1 _ _ _ 

24.0 LET C$ = "ll2l3l4i5l6i7i8i9- 

242 PRINT PT 4,4,0$ 

24-5 LET 5R«45 

250 LET 51=0 

250 LET M=l 

255 PRINT PT 7,11; " " ; TPB 19;' 
H T 9 . 13; '■ 
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1=C FOP flsl TO 17 STEP 2 
300 I- C$ - = 7 OR C$(fl)*"8" 
- DJ fl = r THEN LET M=2 
2 ^0 NEXT h 

220 PRINT PT 7.13; t" " PN 
I -1 = 1); ("DRD02 " PND M=2; 

330 FOR K»l to M 

340 PRINT kt 20,0.;"LPNCE DADO 
" ; J$(I) 

:_0 PRINT PiT 21,0;"TECLE <L>flNC 
PP " 

360 INPUT R$ 

370 IF R$<>"L" THEN GOTO 360 

2 50 LET NxINT tRND*6) +1 

390 PRINT PT 7:3+(S*K);n 

400 LET 51=51-'- 

4-10 NEXT K 

420 C'RINT PT 9, 13; 51 

130 SOSUB 100^ 

440 PRINT RT 21,0; "EH P0S5IUEL 
5UR JOGRDR? (S/N) " 

4 50 INPUT 5 

460 IF Y$ = N T HEN GOTO 690 

470 LET 5R=SR-S1 

450 SOSUB 1010 

4 55 _ET 52=0 

490 PRINT PT 20 , 0; "0UPNT05 NUME 
P r I - ■- ' "■ r c r c - 

500 INPUT ■- 

510 PRINT PT 20 .29; N 

520 : Z-- _ •- 

530 FOR Ksl ""0 N 

540 -PINT PT 21,0; "DIG ITE NUHER 

: 

550 INPUT _ - 

560 LET 32sS2+L(K) 

r"3 PRINT PT 21 , 15+ i 2*K : ; L • K i 

550 NEXT - 

:rO :::.; _00O 



600 
610 
520 
630 
0$i 
640 
= z-0 
660 
670 
HEN 
6S0 
690 
695 

700 

710 
720 
730 

^50 
IDP 
760 

770 
750 

J$ ( 

50C 

810 

NOUO 

520 
5 30 
540 
z5Z 

1000 



>J '_' ! '_' £ O *.' 



IF 51 
FOR K 
FOR M 

. IF ,,I"T 

'next 

NEXT 
PRINT 
IF 0$ 
GOTO 7 
G OT 
LET P 
"- ~: :=, i i 5 

PRINT 
IF P( 

LET I 

GOTO 

PRINT 

; u$ 
PAUSE 

GOTO 

GOSUB 

PRINT 

3-D 
PRINT 
PRINT 

" S/N) 

input 
ip H$ 
CLS 

PUN 2 
PRINT 



: >52 THEN GOTO 750 
=1 TO 17 5TEP 2 
= 1 TO N 
R$ L(M)aC$CK) THEN LET 



M 

- 

PT 4,4; C 

= mmmmm 

20 



II * i 



i. D =P ( D +5P 

PT 13+I.13;P(D 
I =L5 THEN GOTO 750 

— ~ : — T 
240^ 

PT 21,0; " UOGRDP INUPL 
\I) 
120 

A •=■ n, 

— •_ -- 

PT 17,6; "PPRP5ENS , 

^*.z 6; "UOCE UENOEU" 
TAB 5; "OUER JOGAR OE 



H$ 



5" THEN GOTO 520 



- 



1010 PRINT PT 
1020 RETURN 



S3 , 0; " 
51,0; " 



■ 






OBancodenegticios. 

Em 5 vezes sem juros 



Excepcional desconto a vista 



TEMOS DRIVE E 
INTERFACE PI TK 2000 

GRAFIX MX 80 E MX 100, 
J A VEM COM PLACA 
[ P! RESOLUQAO GRAFICA 







BRASILTRADE CENTER 



THE 
FIRST 
VIDEO 
CASSETE 
ENGLISH COURSE 

• Com 2 fitas de 3.30 hs. de duracao, um manual, um 
livro de exerckio e um de texto voce e toda a sua 
familia aprenderao a falar ingles, a lingua universal. 

• Produzido a cores pela equipe da TV mais 
importante do Brasil. • Gravado em estudio e em 
externas mostrando sempre cenas do nosso cotidiano. 

• Preco de lancamento a vista com desconto 

FaQa-nos uma visita em qualquer um 
dos nossos endereqos: 

INFORMACOES: TEL: 259-1 299 a 

COMPUTER CAMPING I 
BTC VIAGENS E TURISMO 




Av. Epitacio Pessoa. 280 (Esq. Vic. Piraja) — 1PANF.MA Tel.: (021) 259-1299 — Telex: (021) 30212 BTCP-BR 

Assembleia. 10/lj. 112 (Ed. Candido Mendes) — CENTRO Tel.: 222-5343 

Av. das Americas. 4790 s/615 (Centro Profissional Barra Shopping) — BARRA Tel.: 325-0481 

Rua 16 de Marco. 80 s/lj. 3 — PETR6POLIS 

Rua dos Mineiros. 55 s/102 — VALENCIA 




Invasores vol tarn a ameacar os terra" queos neste programa desenvolvido 
para micros compati'veis com o TRS 80 modelo I 



Impe^a a fuga 
das naves inimigas 



Silvio Cava lean ti de Araujo 



Voce vai ter uma dificil missao nesta sua viagem por 
uma desconhecida galaxia. Estara encarregado de 
impedir que 20 naves invasoras escapem para colo- 
car em risco a vida em outros planetas, inclusive a 
Terra. Para isso voce deve ser um perfeito comandante e exf- 
mio atirador. Durante a batalha suas naves serao alvo de dispa- 
ros do inimigo. E cada vez que voce perder uma nave, um inva- 
sor vai escapar. E quando uma nave inimiga fugir, voce estard 
perdendo tambe'm um canhSo. A batalha estard perdida quan- 
do tres delas fugirem. 

Em Impega a fuga, na primeira linha do video aparecem al- 
gumas mensagens, como os numeros de tiros, de canhoes, saldo 



de invasores e o e score com recorde atualizado cada vez que 
for igualado ou ultrapassado. 

Para mover sua nave voce deve usar as setas. Esses movi- 
mentos sao lentos, mas poderao ser acelerados se for utilizada, 
simultaneamente. a tecla CLEAR. Este jogo foi programado 
com rotina de som, permitindo seu funcionamento em equipa- 
mentos compati'veis com TRS 80 modelo I. Agora, atire com a 
barra de espaco e impega a fuga. 

Sflvio Cavalcanti de Araujo 6 programador BASIC e desenvolve progra- 
mas jogos para micros das linhas TRS 80. £ autodidata a aprandeu 
BASIC atrave's de livros e revistas. 



Impega a fuga 



• • • 


-•- INPECA A 


FUGA -*- 


• • ■ 


• 1 m 


Ant or i Silvio C 


de Araujo 


• •• 


• • • 


OGT-tOO / 


16 kB 


Mfl 


»«• 


Recife, Ma i o 


de 1984 


• •« 



10 REM 
15 REM 
20 REM 
25 REM 
30 REM 
35 REM 

40 POKE 16561, 224SP0KE 16562,127 

41 AD«32739iP0KE 16527 .A0/256IP0KE 16526, ADAND255 

42 FOR I-AD TO AD«28>REA0 DTiPOKE I.DTiNEXT I 

43 DATA 205. 127. 10, 62, 1,14, 0,237, VI, 61, 64, 69, 47, 230, 3, 179. 21 1.25 
5,13,40,4,16,246,24, 242 , 37 , 32 , 24 1 , 201 

50 RC-OiPT-0 

60 CLEAR 3000:0= < .(147): A=S«R< < <2t 9)*(?« <2C8> > >«64> :B-< (2C9)/A)sN 

*(((A/8)*D)C2)iG0SUB 2400 > GOSUB 5000 

80 CLSiFOR X" 15424 TO 154B7»P0KE X.lOtPOKE X+896,21 «NEXTl V5*-" 

VOCE CONSEGIU BATER RECORD M • " :V6*«"DIGITE SEU NOME. <MAX 
1M0 6 LETRAS>~ 

90 VI*"" VOCE CONSEGIU IMPEOIR A FUGA DOS INVASORES IH~lV2* 

AUER JOGAR OUTRA VEZ ? (S/N)"«V3S-"PIL0T0 CHUPIL 
00 M !"IV4*-"V0CE DEIXOU QUE ESCAPASSEM \" 

100 VI-3lTI-100lCA-14?:N*=CHR*(166)*CHR*(191>»CHR*(153>*CHR*(128 
)«C*»CHR*(158)*CHR*<173)«IC*»CHR*<173)*CH4l*(158)tIR»«STRINGt(6,l 
76>:G0SUB 1500 
105 PI -504 

J07 PC»B96:PRINT3PC,C*i 

110 IF PIXCA*2)«PI»PI-ltPRINTaPI,N*»:ELSEtG0T0 700 
11, IF VI'2>PRINT3144,Nt ? iELSE:IF VI=1 :PR INT3144 ,N%,31S8,N*i :ELS 



I III VI=0:PRINT3144,N« j 3158 , N*,31 72 , NS; 

120 P-PEEM 14400) 

125 IF RNDC9X91G0T0 130tELSElPJ-P 1*1 IW-INT ( <960-PJ)/64) :K J»P J*6 

4:F0R X=l TO U«PJ»PJ*64iP0KE 15360*P J.207lS=USR (534 ) iS-USR ( 518) « 

NEXT 

127 FOR X=l TO W:PRINT3KJ," ", 1KJ-K J*64lNEXT:P0KE 16320,21 

128 IF KJ-64-PC0RKJ-64-PC+1 THEN GOSUB 700 

130 IF P-64 OR P-192UF PC<958IS»USR (540) «PC«PC*1 :PRINTaPC,C*i IP 

RINT3PC-2," "> :ELSElPRINT3PC," "t IPC-896SPR INT3PC.C*; 

140 IF P-32 OR P-160HF PC >896:S-USR(S40) «PC=PC-1 «PRINT3PC,C*» «P 

RINraPC*2," ' ,:ELSE:PRINT3PC," ~, iPC-957 :PR INT3PC, C» ; 

150 IF P-128 OR P-130ITI-TI-1HF Tl< 1 :VI = UG0T0 700:ELSE JPRINT31 

7,TI|iK-PC-896iL«128*KtF0R J-PC-64 TO L STEP-64:S=USR (526) SPOKE 

15360* J, 196 1 IF J-PI OR J-PI*1 OR J-PI+2 THEN GOSUB 800 ELSE NEXT 

IFOR J-PC-64 TO L STEP-64:PR INI3J. " "jSNtXI 

160 IF P"66 OR P-194:IF PC< 957«S=USR(540> IPC«PC*2»PRINT3PC,C* j «P 

HINI3PL -.'." : :ELSEsPRINT3PC," ", :PC=B96JPR1NT3PC,C%» 

170 IF P-34 OR P-162UI PC >897lS=USR (540) :PC=PC-2iPRINT3PC,C*i «P 

RINT3PC«2.'' ".:FLSESPRINT3PC," "» 1PC=957«PR INT3PC.C*; 

500 GOTO 110 

700 FOR X'-l TO 25:NF-129*RN0(6?)IPR1NT3PC.IC*»3PC*1,CHR*(NF)»»S- 

USR(520»RND(25))«PRINraPC,CHR*<NF ) ,3PC ,C%, tS-USR (S20»RND(25> > INE 

XTJPRINT3PC.'" 

710 PRINI3PI," "| 

720 VI'VI-l:CA«CA*14:G0SUB 11.00 JP I'P 1-64: IF PKCA AND VI >0 :G0T0 

105 
730 IF VJXMGOTO 105IELSE :PR INT31 44 , Nl -3158 . Nl, 3172 , Nl s IGOSUB 20 
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790 FOR r=l TO 25xNEXT:IO JURN 

i TO P I* 1 STEP-64XPRINT3J." ", xNEXTiPT-PT*45xNA-NA 

Hill Nm IOXPRINTJPI," **; 

BIO FOR K^PI TO PC-64 STtP 64 < PR INT3K . N», IS-USR (518) t S-USR <524 ) x 

PRINT3K . ' ", >S»USR<528> xS=USR(534) XNEXT 

820 IF NA=20:Vl=0xG0SUB lSOOxGOSIIB P050XW0SU8 2S.00XF0R X-l TO LE 

N<Vl*):PRINT3512,LEFT*(v-l*.X)iG0SUB 2060INEXTXG0T0 2000 

IF WI=3iDC*»"CCC"«ELSE:IF VI-2XDC*-" CfxELSExIF VI-HDC*-" 
IELSEUF VI»OlDCS-"GAME OVtR' 

J510 F««20-NAxPRINT30,DC*,310." TIROSx", T I ,821 ." RECORD", 329. RC 

: 334.RN* r 343," PT«H",PT,354,"FALTAM",360,F«; 

1520 RETURN 

(iOSUB 2500:F0R X-l TO LEN(V2*> «PR INT3576.RIGHT*< V2*,X > :FOR 

T-l TO SOxNEXTxMI ■ I 

2010 R*«INKEY*:IF R*-""THEN 2010 

2020 IF R*="N" OR R*-"n"xFOR X-L TO PC STEP 64IPRINT3X, IC», «GOSU 

B 20A0XPRINT3X," ",:GOSUB 2060XNEXT :PR INT3PC ,CS, :PR INT3192. , xEN 

D 

2030 IF R*«"S" OR R*-"*"XFOR X-L TO PC. STEP 64IPRINT3X ,C*» xGOSUB 
2060XPRINT3X," ", XNEXT tPR INT3PC.C*, IGOSUB 2060IF0R Y-PC TO 896 
STEP lxPRINT3Y,C* ; " ", xGOSUB 2060XNEXTIF0R X-l TO 6>G0SUB 2060 

tNEXTxGOTO 80 

J040 GOTO 2010 

2050 K=PC-896tL»12B*KlF0R X-PC TO L STEP -64IPR INT3X.C*, IGOSUB 2 

060XPRINT3X," ",: NEXT: PR INT3L . CS| x RETURN 

2060 FOR T-l TO 30:NEXT TlRETURN 

2070 G0SU8 20S0 

2080 GOSUB 2500:F0R X-l TO LEN( V3*> XPRINT3S31 , LEFT*( V34.X) , xGOSU 

B 2060:NEXT:F0R X-l TO LEN< V4*> xPR INT3462. RIGHT* < V4*, X) , IGOSUB 2 

nftfKNEXTxGOTO 2000 

2400 POKE N.23IRFIURN 

2500 IF PT-OXRETURN:El SFxIF PT >-RC«RC-PT XPRINT3457, V5*, IPRINT352 

6,V6*,xELSEiRETURN 

2510 PRINT3576,STRING*<63,~ ~) , XPRINT3594 , IR», XPRINT3576. , x INPUT 

"flUAL SEI1 NOriF ",RI* 

2520 IF LEN(RI*>>6 THEN GOTO 2510«ELSE:IF RI*< >""«RN*-"("+R I**' > 

"XRIS- ELSE RN*-" "xRI*»~" 

2530 PRINT3448,STRING*(128,128),xPRINT3576,STRING*<128,128> 

2540 PRINT334," "»329,RC,334,RN*, iPT-0:NA=O 

2550 RETURN 

4(1110 Cl.SxPRINTCMR*(23>" -»- IHPECA A FUGA -•-" 

4010 PRINTlPRINT" objetlvo deste jogo e' ten-" 

4020 PRINV'tar ii»pedir a fuga de 20 inva-" 
PRINT"sores gue sacs do lado direito" 

4040 PRINT"do video. Para isso, voce deve" 

4060 PRINT~»irar o canhao e atlrar coei a" 

4070 PRINT"b»rr« de eapaco. para <»over-»e,~ ^ 

4080 PRINT"u»e as setas. cada vez que voce" 

4090 PRINT"for atingido. o invasor afasta-" 

4100 PRINT"se de voce, u 3 invasores chf-" 



4ini PKlNT"<|flre» no alto do video, ac aba o 

4120 PRINT"jogo. Se voce atmge urn inv-> .. 

4130 PRINT"outro aparecera ' no xswi lug 

4140 GOSUB 6000 

4150 CLSXPRINTCHR*<23>" -•- IMPFr.A A UK..'. • 

4160 PRINTxPRINT"»a» se «le at Inge voce, ale* d«" 

4170 PRINT"voce perder u* canhao, u* *< 

4180 PRINT"canle foge. Para ganhar o J 090 

4190 PRINT"voce deve abater todo* os mi 

4200 PRINT"»igos, %rm que acabem o* t iroa," 

4210 PRINT"* se* perder todas H naves." 

4220 PRINV'Para ae a-over use:" 

4230 PRINTCHR*(34>,CHR*(93)»CHR*(34>, ' Para a esquerda," 

4240 PRINTCrlR*<34)»CHR*(94>,CHR*(34>," para a direila, e" 

4250 PR1NTCHR*(34),"ESPAC0",CHR1(3'4>," para atirar." 

4260 PRINT"0bs: Para Hover Mil depreasa, uaex (CLEAR) S <SETA> 

4270 PRINT 
4280 GOSUB 6000 

4290 CL5xPRINTCHR*(23>,xBS%-" Boa Sor t e "XFOR X-l TO 

LEN(BS*)x S-USR (528) »PR 1NT3896.RIGHTKBS*, X) , XS-USR(790> 1 GOSUB 20 

60XNEXT 

4300 FOR X-l TO 81PRINTSTR ING*(60, 32) xS-USR <530*(2«X )> XGOSUB 790 

:NFXT 

4310 RETURN 

5000 CLSxHRINTCHR*(23>xAl**"»«« IHPECA A FUGA ■••"xA2*-STRING*<2 

2.131>IA3*-"S.C.A. APRESENTAx"xA4*-"SHIFV'xA5*-"CLEAR"xA6*= 

":A7t-STRIN(i*<22.61 ) 
5010 AB*="Terle (SHIFT »•«•'-» mstnitofs," 
5020 A9*»~ on <CLEAR> para jogar... 

5040 FOR X«l TO LEN(A1*> XH*»MID*( Al*. X , 1 ) : IT M*^ :B'B'.':NFX1 

5050 FOR Y-6 TO 326 STEP 64XS-USR (546*RN0( 40) ) SPR INT3Y«B ,H», xGOS 
UB 5150:PRINT3Y«B," " , xNEXT xPR INT3Y»B ,M», IB-B«2XNEXT 
5060 FOR XX-1 TO LEN< A2i) XPR INT34S6 ,R IGHT*< A2%. XX ) • : S-USR (546»RN 
0(40) )XN1 XT 

5080 FOR X-l TO LEN( A3* ) XPR INT38 , R I GHT*( A3* , X ) x S=USR (540*RN0( 40) 
> x NF X T 

5090 FOR Z-114 TO 72 STEP -1 XPR 1NT37 . LFF T*( A7*, 1 ) , XS-USR ( 540*RND 
<40))XN(XT 

5100 FOR X=l TO LEN(A8*)XPRINT3704,IEFT*(A8*,X),376B,IEFT*(A9*,X 
),XS-USR<540*RND<40) >xNEXT 

5110 AB -PEEK (1 4400 )xA«PEEK( 14464) xPR INT371B.A4*, 3782. A6*,xF0R X- 
560 TO 580XS=USR(X)XNIXTXPRINT3/1H,AA*,3782,A5*,XF0R X-580 TO 56 
STEP -IIS-USR(X) :N1 XT x I) AB-6 THtN FND 
5120 IF AB-2»PRINT3718.A4*;3782.Ar.*, IGOSUB 4290:HEIURN 

IF A-l IPRINT371B. A4t, 3782, A5*, XGOSUB 4000XRETURN 
5140 GOTO 5110 

' 1' 11 IOH 1=1 TO 7XNEXTXRETIIRN 

6000 PRINT3960,"para continuar, tetlr (RETURN)", 
6010 AB-PEEK(14400)X1F AB' 1 xRi TURNrf I r .t xfiOTO 6010 



ASSISTENCIATECNICA E 
VENDAS DE MICROCOMPUTADORES 



ATARI 



v EPSON 



10 FOR I = 1TO20 

20 PRINT "ESTOU EM APUROS 

30 NEXT I 

40 GO TO 10 



<ris 



GRAFIX 



Odismoc 





tfB appkz coffiputoCaf 



PROLOGICA 

na«focomputa<Jofes 



PHILIPS 

SUPE^BRAIN 



EQUIPAMENTOS ELETRICOS LTDA. 
RUALUIZ GOES, 1894 
FONES: 2768988 e 5778761 
TELEX: (011) 37.755 DTRD — SP 



Voce e o piloto de uma nave que vai encontrar muitos obsta'culos 
neste jogo para os micros da linha Sinclair 



Defenda-se 



Tadeu Curinga da Silva 



Voce 6 o piloto de uma nave , 
cuja missao 6 encontrar um 
tesouro escondido, ap6s 
percorrer um longo percurso 
passando por montanhas, cavernas. tii- 
neis e edif icios. A nave aparecera no can- 
to esquerdo do video e para move-la voce 
podera dispor do joystick ou do teclado, 
escolhendo, respectivamente, as opcoes 
J ou T, dadas no initio do jogo. Se a sua 
opcao for o teclado, os comandos slo: 
tecla 1 para a nave subir; e 0, para des- 
cer. 

A quilometragem percorrida 6 mos- 
trada no canto inferior esquerdo do vf- 
deo e vai aumentando a medida que vo- 
ce vai avancando. Se houver uma coli- 
sao, a nave explodira, provocando uma 
diminui^ao no numero de chances, que 
slo cinco. Apos a colisao, o jogo 6 rei- 
niciado em um ponto um pouco mais 
atras do local da explosao. Ao terminar, 
qualquer tecla pressionada produzira 
uma nova partida. jogo apresenta uma 
grande varied ade de telas. causando um 
constante suspense sobre qual sera o 
proximo obstaculo. 

Defenda-se foi desenvolvido em 
Assembler para os micros da linha Sin- 
clair, com uma memoria minima de 16 
Kb de RAM. Para digitar o programa. 
comece pela listagem 1 . As linhas REM 
sao necessarias porque e nelas que fica- 
rao os bytes da linguagem de maquina. 
Elas deverSo conter exatamente o nume- 
ro de caracteres indicados. 

Para digitar estas linhas, proceda da 



seguinte forma (ou entao use o coman- 
do E do MICRO BUG-MS n9 33, pag. 
54): coloque o micro no modo FAST 
(digitando FAST e ENTER ou NEWLI- 
NE) para ganhar tempo; digite uma li- 
nha 2 REM com 206 caracteres quais- 



quer; edite esta linha 2, modifique o seu 
numero para 6, avance o cursor e acres- 
cente mais 148 caracteres a esta nova 
linha, para que assim ela contenha 354 
caracteres. A seguir, edite a linha 6, mo- 
difique o seu numero para 1 , avance o 



















Lista 


gem 


1 






i 


REM (468 caracteres)... 


(K + D-476 




2 


REM ....(206 caracteres)... 


7190 


LET A=A+C 


3 


REM (482 caracteres)... 


7200 


POKE N+B r C 


4 


REM (480 caracteres)... 


7210 


LET B=B+1 


5 


REM (495 caracteres)... 


7220 


NEXT K 


6 


REM (354 caracteres)... 


7230 


IF CHEC=A THEN GOTO 7280 


7000 


REM MINI MONITOR HEXADECI- 


7240 


SCROLL 


HAL 




7250 


PRINT "ERRO, POR FAVOR DIGI 


7005 


CLS 


TE NOVAMENTE" 


7010 


PRINT "DIGITAR OU CONFERIR 


7260 


LET I=N 


(D/CJ ?" 


7270 


GOTO 7080 


7020 


INPUT At 


7280 


NEXT N 


7030 


PRINT "ENDERECO INICIAL DO 


7290 


SCROLL 


BLOCO ?" 


7300 


PRINT "BLOCO DIGITADO" 


7040 


INPUT I 


7310 


STOP 


7050 


PRINT "ENDERECO FINAL ?" 


7320 


REM CONFERE 


7060 


INPUT F 


7330 


FOR N«I TO F STEP 8 


7065 


CLS 


7340 


SCROLL 


7070 


IF At-"C" THEN GOTO 7320 


7345 


LET C=0 


7080 


FOR N»I TO F STEP 8 


7350 


PRINT N;" - "• 


7090 


LET A=0 


7360 


FOR A*0 TO 7 


7100 


SCROLL 


7365 


IF N+A)F THEN GOTO 7410 


7110 


PRINT N»" - " P 


7370 


LET B-PEEK (N+A) 


7120 


INPUT A* 


7380 


PRINT CHRt (INT (B/16)+28); 


7130 


PRINT Ai;" - ", 


CHRS 


(B-INT (B/16>#16+28); 


7140 


INPUT CHEC 


7390 


LET C=C+B 


7150 


PRINT CHEC 


7400 


NEXT A 


7160 


LET B-0 


7410 


PRINT " = ";C 


7170 


FOR K-i TO LEN At STEP 2 


7420 


NEXT N 


7180 


LET C=C0DE A5(K)«16+C0DE At 


7430 


STOP 
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cursor e acrescente mais 1 14 caracteres 
a esta nova linha, que contera entao 468 
caracteres. Edite depois a linha 1 , modi- 
fique-a para 4 e coloque mais 1 2 carac- 
teres. Faca a edicao da linha 4, mude-a 
para linha 3 e adicione mais 2 caracte- 
res. Por ultimo, repita esta operacao 
com a linha 3, transforme-a em linha 5 e 
acrescente mais 13 caracteres. 

Apos ter feito isso, digite o comando 
direto: PRINT PEEK 16396+256* PEEK 
16397. resultado deverd ser 19030. 
Caso contrario, tera" havido erro na digi- 
tacao das linhas. Se tudo estiver correto, 
coloque o micro no modo SLOW e digi- 
te normalmente a listagem 1 , a partir da 
linha 7000. 

De RUN e na tela surgira - a pergunta: 
DIGITAR OU CONFERIR (D/C)?. Vo- 
ce devera* entrar com a letra D (digitar). 
Se voce tiver duvidas referentes a um 
bloco, i bom conferir. A seguir, o pro- 
grama fara" uma nova pergunta: ENDE- 
RECO INICIAL DO BLOCO? £ s6 en- 
trar com o primeiro endere90 do bloco a 
ser digitado (veja a Figura 1). Finalmen- 
te, o micro pedira o endereco final para 
depois seguir com a entrada dos bytes 
em Assembler. Eles devera"o ser digita- 
dos sempre de oito em oito, num total 
de 16 caracteres (dois para cada byte), 
exceto na ultima linha de cada bloco, 
onde o numero de bytes poderd ser 
menor que oito. Nos blocos em Assem- 
bler da listagem 2, aparecem espacos 
entre cada byte apenas para visualizd-los 
melhor. Nao digite esses espacos. 

Ap6s a entrada dos bytes referentes 
ao endereco correspondente, o micro 
pedira" mais um numero: o checador. 
Este numero, como o pr6prio nome diz, 
checa se todos os bytes foram digitados 
corretamente. Em caso positivo, o pro- 
grama continuara* a rodar normalmente; 
mas se houver erro, o programa acusara\ 
pedindo que voce digite novamente os 
bytes do endereco onde houve erro. 

Para ficar mais claro, vamos dar um 
exemplo. Suponhamos que voce tenha 
digitado toda a listagem 1 e queira en- 
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-END. FINAL 
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16514 


16981 
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17193 
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17200 


17681 
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17688 


18167 
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18174 
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18675 


19028 



Figura 1: tabela de enderecos 

trar com os bytes do primeiro bloco. 
Ap6s dar RUN, a tela imprimira' DIGI- 
TAR OU CONFERIR (D/C)? Entre com 
D. Aparecera entlo: ENDERECO INI- 
CIAL DO BLOCO? Entre com o nume- 
ro 16514. E a seguir perguntara": EN- 
DERECO FINAL? Entre com o numero 
16981. A tela imprimira': 16514 - e fi- 
cara esperando a entrada dos bytes. Di- 
gite 002A0C4O01C50009. A tela entao 
Heard assim: 16514 - 002A0C4001C5 
0009= esperando a entrada do checador. 
Digite 325 e a tela mostrar£: 
16514 - 002A0C4001C50009=325. Se 
tudo estiver correto, o programa dard o 
SCROLL, imprimird o pr6ximo endere- 
co e continuara sua execucao. Caso 
ocorra algum erro na digitacao dos by- 
tes, o programa acusara. £ aconselhavel 
fazer gravac5es do programa a cada dois 
blocos digitados para continuacao futu- 
ra, pois digitar tudo de uma s6 vez seri 
cansativo. Apos a entrada de todos os 
blocos em Assembler da listagem 2, digi- 
te as seguintes linhas: 

10 SAVE "DEFENDA-SE" 
20 RAND USR 18723 

Depois, de o comando RUN 10, salve 
o programa definitivamente e divirta-se, 
ou melhor, defenda-se! 



Tadeu Curinga da Silva tern 15 anos e cursa o 
ni'vel 4 de Eletrotecnica na Escqla Tecnica 
Federal do Rio Grande do Norte. F usuirio de 
um TK82-C hi um ano. 
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IS«()1 » si PIKIoR Dl ADMINISTH»(;*0[ *EG<VlOS 

AV. NILO PEQANHA. 50 GRUPO 1410 
TEL.: (021) 240 0958 
TELEX: (021) 31654 

MANUAL DE OPERACOES DE 

MERCADO COM CALCULADORA 

FINANCEIRA HP-12C" 




EMPRESTIMOSE 
FINANCIAMENTOS: 
Descontos de duph- 
catas, Financiamen- 
to para recolhimento 
de tributos e contri- 
buicdes; Financia- 
mento a Pequena e 
Media Empresa - Res. 
695; Financiamento 
I para capital de giro - 
| Bco. de Investimen- 
tos; Adiantamentode 
exportag§o; Financiamento a produ - 
Qdo para exportag§o Res 882 (ex 674); 
Repasse de recursos externos - Res. 63, 
Arrendamento mercantil - "Leasing"; 
Credito direto aoconsumidor 

APLICACOES FINANCEIRAS E IN- 
VESTIMENTOS: Letras do Tesouro Na- 
cional; Obrigacdes Reajustaveis do Te- 
souro Nacional; LetrasdeCambio; Certi- 
ficados de Depositos Bancarios - CDB; 
Depdsito a Prazo Fixo - RDB; Letras Imo- 
bilianas; Cadernetas de Poupanqa; De- 
bentures. 

PROGRAMACAO DE CALCULADORAS 

FINANCEIRAS PARA OPERACOES 

DE MERCADO 

lntroduc3o a Pro- 
gramagao — Logica 
da Maquina. 

Programas Pron- 
tos: Desconto de Du- 
plicatas; Capital de 
Giro; Res. 63: Certifi- 
cado de Deposito 
Bancario; Letra de 
Cambio; Ponto de 
Equilibrio; Projecoes 
Financeiras. Correg6es Salanais; Re- 
gress3o Linear; ORTN's; LTN's. 




MICRO SISTEMAS, janeiro/85 



CONSULTE-NOS SOBRE CUR- 
SOS DE UTILIZAQAO DE CALCU- 
LADORAS HP-12C e HP-41 CV. 

Adquira esses dois exemplares 
por apenas Cr$ 69.000,00 nos 
escrevendo ou enviando o cupom 
abaixo. ~y^L 

NOME: 

End.'".'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'..'. 

Cep : 

Cidade: 

Estado 

Enviem cheque nominal para ESAD 

Escola Superior de Administracio e 

Negocios. 

Av NiloPecanha. 50 Gr 1410 

Cep 20.040 — Rio de Janeiro — RJ 

Cheque 

Banco 

Valor 
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Suprimento e coisa seria 




Com a Centr al data 
a entrega e imediata 



Mantenha o seu computador bem alimentado adquirindo 
produtos de qualidade consagrada 



d 



CEITMLIIll 

Represeniacoes Llda 



Com 



I 



• Discos Magneticos: 5 Mb. 16 Mb. 80 Mb. etc. 

• Fita Magnetica: 600. 1200 e 2400 pes 

• Fita CARBOFITAS p/lmpressoras: Globus. M 
100/200 — B 300/600 — Elebra 

• Fita p/lmpressoras: Elgin. Epson. Digilab. Diablo. 
IBM 1403/3203. etc. 

HMiHMMH • Cartucho Cobra 400 

AV. PRESIDENTE VARGAS N° 482 GR. 201/203 Tel.: KS (021) 253-1120 



DISKETES: 5 1/4 e 8 " e fitas magneticas 
• marca VERBATIM 
ETIQUETAS PIMACO — PIMATAB 
PASTAS E FORMULARIOS C0NTINU0S 



Um dia chegamos a conclusao que precisamos agilizar nossos jogos. 
Se esse 6 o seu caso, conhega duas rotinas faceis. Sao para usuarios do ZX-81 



Jogue 
em ritmo Assembler 



Giangiacomo Ponzo Neto 



Amaioria dos jogos comercializados para o ZX-81 con- 
tain rotinas em linguagem de maquina (Assembler). 
Isso se deve, principalmente, ao fato de o BASIC des- 
ses equipamentos ser considerado muito lento, o que 
torna os jogos que empregam apenas essa linguagem um tanto 
enfadonhos. 

Por causa disso, muitos usuarios, que ao comprarem um mi- 
cro sonhavam em desenvolver seus pr6prios jogos animados, se 
frustraram. E o que ocorre, talvez na maior parte desses casos, 
e" que esses usuarios desistem de tentar e acabam mergulhando 
nos jogos disponiveis no mercado. 

Neste artigo, mostraremos duas rotinas simples, bastante co- 
muns em jogos. Vamos analisa-las com calma, de maneira que 
os poucos iniciados possam comecar a ver que o Assembler n5o 



Ne 


mnbnOnicos 


COOIGOS 


comentArios 


1 


LO HL.( 184211 


2A 


2 C 


40 


Carrega em HL a tecla acionada. 


2 


LD A, 223 


3E 


or 




Compare com a tecla 5. 
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CP H 


BC 
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JR NZ.AA 


20 


IC 
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LO A, 247 


3E 


n 
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CP L 


BD 
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JR NZ.AA 


20 


i i 




Em caso negative aalta para AA. 
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LD HL.TT63961 


2A 


oc 


40 


Carrega ex HL o endereco anterior 
ao micio da memona de video • 
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LD DE.661 


11 


is 


02 


10 


ADO HL.DE 


19 






poaiciona para o SCROLL a eiquerda 




LD D.H 


54 








12 


LD E.L 


50 








13 


INC HL 


23 








14 


LD A,(HL) 


7E 






Paz a conparacao do carater a ei- 


15 


CP 131 


PE 


1 1 




querda da nave. Se a nave ja osti 




JR Z.BB 


28 


H 




ver no canto eaquerdo, vai para BB 




LD BC.31 


01 


II 


00 


Define o .-ontador. 


18 


LDIR 


EO 


K'J 




Realize o SCROLL a esquerda. 


19 


DEC HL 


2B 








20 


LO (HL).O 


36 


00 






21 


AA LO A, 247 


3E 


n 




Compare com a tecla 8. 


22 


CP H 


BC 








2J 


JR NZ.BB 


20 


IC 






24 


LO A,23l 


3E 


D 






25 


CP L 


BD 








26 


JR NZ.BB 


20 


i •' 




Em caso negativo, salta para BB. 


27 


LD HL,T"T6396) 


2A 


oc 


40 


Carreqa em HL o endereco anterior 


28 


LD DE.692 


11 
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02 


29 


ADD HL.DE 


19 








30 


LD D.H 


54 








31 


LO E.L 


5D 








32 


DEC HL 


2B 








33 


LO A, (HL) 


7E 






Paz a comparacao do carater a di 




CP 131 


PE 


U 




reita da nave. Se a nave ja eatl 




JR Z.BB 


28 


M 




ver no canto direito, vai para BB. 


36 


LO BCTJl 


01 


IF 


DO 


Define o contador. 


37 


LODR 


ED 


hs 






38 


INC HL 


23 








39 


LO (HL).O 


36 


00 






40 


BB RET 


C9 






Volta ao BASIC. 



6 tao complicado, e que eles mesmos podem tentar programar 
e usar rotinas em linguagem de maquina. 

Uma das maneiras mais faceis de se fazer um programa em 
Assembler (desculpem-me os puristas) e elabora-lo totalmente 
em BASIC e ir "traduzindo", linha por linha, ate" ficar com boa 
parte dos comandos, ou ate sua totalidade, em Assembler. Ou- 
tra maneira 6 usar os programas-compiladores existentes no 
mercado. Eles fazem sozinhos a traducao descritaacima.exigin- 
do apenas que entremos com o programa original em BASIC. 

Mas quern tern um desses programas sabe das limitacSes im- 
postas ao BASIC do programa de origem. E aldm do mais, exis- 
te aquela satisfa?ao de se ver, feita por nos, aquela rotina em 
linguagem de maquina, que antes era tao lenta. 

ROTINA DE MOVIMENTO 

Essa rotina (figura 1 ) serve como exemplo do que se pode 
conseguir em Assembler sem grande conhecimento. Ela subs- 
titui o famoso trecho que movimenta uma nave em determina- 
da linha da tela, em BASIC: 



ET A=14 



LET A=A+(INKEY$="8" AND A<27 ) - ( INKEYS="5" AND A>0) 
PRINT AT 20, A; 1 



Figura 1 



GOTO xxxx 

Naturalmente, os parametros sublinhados nao precisam ter 
necessariamente estes valores e o desenho da nave pode variar. 
Mais adiante trataremos disso. 

Para canegar a rotina no micro use o monitor publicado em 
MS 23 no modo A (hexadecimal) ou outro qualquer que voce 
queira. A posicao na memdria pode ser deflnida por voce, j£ 
que so se usam saltos relativos nas rotinas (se voce nao souber 
o que e isso, de uma olhada no curso de Assembler publicado 
por MS entre os numeros 21 e 32). Uma maneira 6 criar uma 
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linha REM para guardar as rotinas. Tomaremos esse modo co- 
mo o escolhido. Faca um REM (na l. a linha do programa) com 
mais 1 1 1 caracteres quaisquer. monitor colocara la as instru- 
coes Assembler. IP endereco de memdria disponivel agora 
serf 16514. 

Vamos a uma analise da rotina: a primeira instrucao carrega 
o par HL com uma variavel muito importante do sistema, a 
qua! indica a tecla que esta sendo pressionada. Desta instrucao 
ate a se*tima sao feitas compara96es para se saber se a tecla 5 
esta sendo acionada. Em caso positive o processamento segue 
com um efeito de SCROLL para a esquerda, desde que a nave 
ja nao esteja nesse canto mas apenas na linha da tecla onde ela 
se encontra. Se a tecla 5 nfo estava sendo pressionada, o pro- 
cessamento passa para a instrucao 21 . que e onde se encontraria 
o processamento, se houvesse se realizado o SCROLL citado 
acima. Desta instru?ao ate a penultima, faz-se para a tecla 8 o 
teste que se fez para a tecla 5, so que, em caso de acionamen- 
to, da"-se um efeito de SCROLL para a direita. 

A chamada da rotina por BASIC sera" do tipo: 



zzzz IF INKEY$ "" THEN PRINT PEEK 16422 
"(H)-";PEEK 16421 ; " ( L) -" ; INKEY$ 
GOTO zzzz 



Figura 2 

for somado na 28. Alem disso, e preciso diminuir o valor dado 
ao par BC nas instrucoes 17 e 36, na medida em que se alterar 
os valores, respectivamente , nas instru?6es 9 e 28. Essa mu- 
dan^a e necessaria, pois o par BC serve de contador para o loop 
dos SCROLLS. Se houver mais SCROLLS que o necessario, 
ocorrerao problemas no arquivo de imagem. 

desenho da nave pode ser alterado na chamada em BASIC. 
As mudan9as na rotina Assembler sao nas instructs 1 5 e 34. 
numero comparado (131) e o c6digo dos caracteres laterals 
da nave ( ■■ ). Essas instrucoes devem ser alteradas de acor- 
do com o novo codigo dos caracteres laterals do novo desenho 
da nave. 



yyyy 



REM (+111 caracteres) 
PRINT AT 20,14;"j 



RAND USR 16514 



GOTO yyyy 



ROTINA DE CHAMADA DE TIRO 



Outro exemplo simples. A vantagem da rotina anterior era a 
rapidez. Esta rotina traz outra das vantagens do Assembler. 
que veremos adiante dificilmente poderia ser executado em BA- 
SIC satisfatoriamente, apesar de ser uma tradugao. trecho 
em BASIC 6: 



Novamente, o sublinhado pode ser alterado. 

Escreva a chamada (s6 para testar) apenas com as quatro 
linhas descritas de RUN e veja, pressionando 5 ou 8, a rapidez 
da rotina em relacao ao programa substituido do BASIC. Com- 
pare! Saiba que se a chamada da rotina Assembler fosse feita 
por outra rotina, tambem em Assembler, ja* num programa 
completo, nao muito longo, a rapidez poderia ser ainda maior, 
e entao seriamos forcados a colocar loops de espera na rotina. 
Isso ocorre porque o que demora mais no programa apresenta- 
do, por incrivel que pare9a, e - a chamada (RAND USR 16514), 
bem mais lenta do que toda a execuc5o da rotina em lingua- 
gem de maquina. 

Finalmente, como mudar os parametros sublinhados nos 
programas em BASIC, agora em Assembler? 

ALTERACOES 

A primeira mudansa (coluna inicial do PRINT = 14) 6 sim- 
ples. Ela e" feita mediante alterac^o no PRINT do programa de 
chamada, colocando-se aU a coluna desejada. 

A mudan9a das teclas de movimento (5 e 8) 6 mais comple- 
xa. Mas para nao perder tempo com tabelas, use o programa da 
figura 2. Pressione, mantendo o dedo por algum tempo, a tecla 
que voce quer para substituir o 5. anote os valores, e entao tro- 
que os numeros nas instrucoes da rotina Assembler (segunda e 
quinta instru90es). Para trocar o 8, empregue procedimento se- 
melhante, s6 que alterando as instni96es 21 e 24. Se voce nao 
esta" familiarizado com Assembler, aten9ao no momento das 
modifica9Ses. 

Para alterar a linha da tela onde esta" a nave (20) voce deve 
mexer nas instni9oes 9 e 28. Note que 661 (da instrucao 9)6 
igual a 20 x 33 + 1; e que 692 (da instrucao 28) 6 20 x 33 + 32. 
Para colocar a nave na linha 18, por exemplo, substitua os nu- 
meros sublinhados (20) por 18, e altere as instrucoes descritas. 
Nao esque9a tambdm de alterar o PRINT no programa de cha- 
mada. 

Para alterar os limites que a nave n§6 pode ultrapassar 6 ne- 
cessano mudar o numero que foi somado nas instn^Oes 9 (+1) 
e 28 (+ 32). Maisde 1 na9 e/ou menos de 32 na 28. Obviamen- 
te, o que foi somado na 9 devera" ser sempre menor que o que 
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IF INKEYS="0" THEN GOTO kkkk 



M 




GARANTA 

SUA MS 

TODO MES! 



ASSINE HOJE MESMO E RECEBA GRATUITA 
MENTE 6 NUMEROS A SUA ESCOLHA A PARTIR 
DO N9 13. PREENCHA O CUPOM ABAIXO (OU 
UMA XEROX, CASO VOC£ NAO QUEIRA CORTAR 
A REVISTA): 

NOME; EMPRESA; PROFISSAO/CARGO; ENDERE- 
CO PARA A REMESSA; CIDADE; CEP; EST ADO. 



Nome 



E mpresa 

Prof issffo/Cargo 

Endereco para remessa 
Cidade 



CEP. 



Estado. 



Assi nature A nual: D Micro Siste mas 



Cr$ 39.000,00 



GRATIS! 6 NUMEROS ATRASADOS. 



Preencha um cheque nominal A ATI Editora Ltda., e envie 
para: Av. Presidente Wilson, 165/Grupo 1210, Centro, Rio de 
Janeiro, RJ, CEP 20.030 - Tels.: (021) 262-5259 e 262-6306 
R. Oliveira Dias, 153, Jardim Paulista, Sao Paulo, SP, CEP 
01433 - Tels.: (01 1 ) 853-3574 e 853-3800. 
Seu recibo sera enviado pelo Correio. 



JOGUE EM RITMO ASSEMBLER 



Mas, so isso?..., dirao alguns. que peco i que continuem 
lendo e verao a importancia da traducao dessa linha, que geral- 
mente 6 usada para dar a hora do tiro nos programas em que o 
jogador tem alguma especie de alvo a acertar, desviando o pro- 
grama para a rotina de tiro (que se iniciaria em kkkk). A rapi- 
dez da linha em BASIC ja e" razodvel (por ser curta), e, por isso 
s6, nio justificaria o trabalho de se fazer uma rotina Assembler. 
E o tempo da chamada (tipo RAND USR endereco) nao seria 
muito menor que o da linha mostrada. Lembre-se que na outra 
rotina havia uma seqiiencia de instrucoes bem mais complexa, 
logo, mais demorada, e que ganhou muito em velocidade, quan- 
do em linguagem de miquina. 

Entao, qual a vantagem? Isso veremos daqui a pouco. 

CARREG AN DO A ROTINA 

Para carregar a rotina comece do endereco de memoria 
16584 (logo apos a rotina de movimento) usando o monitor. A 
linha REM anterior ja tem espaco para esta rotina. Vamos as 
peculiaridades. 

Um tipo de chamada USR nao precisa ser, necessariamente, 
RAND USR, PRINT USR ou LET varisivel - USR (as mais usa- 
das). Introduziremos aqui um GOTO USR. A rotina esta" na fi- 
gura 3. A chamada em BASIC e do tipo: 



REM (+111 caracteres) 
GOTO USR 16584 

iijj • 

Kkkk (rotina de tiro) 



Observe, na figura 3, que: 

1) na instrucao 20, o kkkk foi exemplificado como 200 (C8 
00, em hexadecimal e nao 00 C8, pois a parte mais significativa 
deve ficar na segunda posicSo); 

2) na instrucao 22, jjjj foi exemplificado como 100 (64 40); 

3) naturalmente, kkkk e jjjj podem ter outros valores, desde 
que se tome cuidado com a ordem dos hexadecimais, confor- 
me visto na observacao 1 . 

Se a tecla for pressionada. o processamento ira para kkkk, 
caso contrario, continuara normalmente, indo para jjjj. Como 
isso ocorre? Bem, as rotinas Assembler no ZX-81 retornam ao 
BASIC com o valor (decimal) do par BC. Se fizermos GOTO USR 
endereco, o micro, depois de executar normalmente a rotina, a 
partir do endereco indicado, retornard ao BASIC com o que es- 
tiver em BC, e usara" seu valor para GOTO. Entao, e s6 darmos 
a BC, na rotina, o niimero da linha para a qual o programa de- 



Nt 




MNEMONICOS 


CC-DIGOS 


OBMBmiKXOI 


1 




to 


HL, (16421) 


2A 


25 


I 


Carrega en HL a tecla acionada. 


2 




LP 


A, 245 


3E 


n 




Coaipara coo as tecla* 8 e 0, ■• 


3 




19 


H 


BC 






pressionadas ao aeiao tempo. 


4 




JK 


NZ.CC 


20 


05 




En caao negative aalta para CC. 


5 




i.:< 


A.2J9 


3E 


V 






6 




Cf 


L 


BD 








7 




JH 


Z,EE 


28 


'* 




Em caso positive salta para EE. 


a 


CC 


U) 


A,I2l 


3E 


DO 




Compara cost as teclas 5 e 0, se 


9 




a 


H 


BC 






acionadas ao siesao testpo. 


10 




.IK 


NZ.DD 


20 


M 




Est caso negativo. salta para DO. 


11 




U) 


A.2TT 


3E 


M 






12 




a 


L 


BO 








13 

14 


DD 


IK 

U9 


Z,EE 
A, 353 


28 
3E 


M 

n 




Cm caao positivo, salta para EE. 
Coaipara com a tecla 0. 


M 




a 


H 


BC 








16 




JK 


NZ.FF 


20 


«• 




En caso negativo, salta para FF. 


17 




:.:• 


A, 25? 


3E 


y.y 






18 




a 


L 


BD 








19 




n 


hl.TT 


20 


4 




Idem. 


20 


a 


u> 


■CkEkk 


01 


CI 


00 


Carrega a BC o niinero kkkk. 


21 




RET 


C9 






Volta ao BASIC. 


22 


TT 


LO 


■ •..:; 


01 


6 4 


00 


Carrega est BC o nuswro JJJJ. 






RET 


C9 






Volta ao BASIC. 






Figura 3 
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vera" saltar, caso: a) a tecla esteja acionada (kkkk); b) a tecla 
nao esteja acionada (jjjj). Atente bem para as observacdes re- 
ferentes a figura 3 , relacionadas acima. 

RETOQUES FINAIS 

Outro fato interessante 6 que no BASIC a linha testa o 0, 
mas se voce apertar o e outra tecla do jogo, por exemplo, 
uma das teclas de movimento da sua eventual nave, nada 
acontecerd: nem a nave se move, nem o programa desvia para 
a rotina de tiro. Como solucionar o problema? Em BASIC, fi- 
caria complicado e implicaria em linhas extras, aumentando a 
lentidao. Porem, em Assembler, pode-se fazer algo mais sim- 
ples. Usaremos a rotina da figura 2. Rode -a e aperte 8 e jun- 
tos e faca a verificacSo dos valores na figura 3. Repita o proce- 
dimento para 5 e juntos, e sozinho. As teclas 5 e 8 sao para 
compatibilizar as duas rotinas mostradas neste artigo, pois s5o 
as teclas de movimento. Assim, qualquer combinacSo com ate 
duas teclas do jogo (incluindo o 0) estara prevista na rotina e o 
desvio se dara" normalmente. Se nao forem 5 e 8 as teclas de 
movimento, troque os valores nas instrucoes de comparacao 
usando a rotina da figura 2, para saber os valores a serem alte- 
rados. Se houver mais teclas utilizaveis no jogo, que poderiam 
atrapalhar, caso apertadas junto com o 0, faca mais compara- 
c5es, do mesmo tipo que foram feitas para o 5 e 8 junto ao 0, 
inclusive podendo ser prevista a hipbtese de mais de duas teclas 
serem apertadas ao mesmo tempo. 

J a com tudo digit ado. fac^a o teste: 

1 REM (rotinas Assembler) 
20 GOTO USR 16584 
100 SCROLL 
120 PRINT "." 
140 GOTO 20 
200 SCROLL 
220 PRINT "X" 
240 GOTO 20 



De RUN e aperte 0, sozinho ou junto com 8 ou 5. O pro- 
cessamento 6 desviado, conforme pretendiamos. 

MOVIMENTO E TIRO 

Se adicionarmos a rotina de movimento uma compara- 
cao, para haver deslocamento com o pressionado junto ao S 
ou ao 8, poderemos, com duas rotinas no mesmo jogo, fazer o 
movimento e dar ordem de tiro, apertando duas teclas ao mesmo 
tempo, sem que uma interfira na acao da outra! 

Essa 6 mais uma grande vantagem do Assembler, al£m da ra- 
pidez. Tente fazer o que foi mostrado em BASIC. E se conse- 
guir, veja como ficara lento. 

Um exercicio para voce: troque o RET na instrucao 40 da 
figura 1 (endereco 16583) por um NOP(codigoO - instru?ao 
inoperante), fazendo POKE 16583, 0. Faca um joguinho em 
BASIC usando a linha REM com as rotinas Assembler. Quando 
for mover a nave chame GOTO USR 16514. Agora as duas ro- 
tinas estao juntas e farao o movimento e a ordem de tiro, de 
acordo com a (s) tecla (s) acionada (s). 

Temos entao as rotinas para incrementar nossos jogos. Voce 
pode tentar traduzir outros trechos comuns nesses programas 
e, quern sabe. ate' transforma-los totalmente para Assembler. 

Agora, se alguem pensou: e uma boa ideia..., entao atingi- 
mos o objetivo desse artigo. ■ 

Giangiacomo Porno Neto cursa Engenharia Eldtrica na UFRJ, onde vem 
ganhando experiSncia em programaqao FORTRAN. Trabalha tamb6m 
em BASIC e Assembler com seu micro da linha Sinclair e utilize calcula- 
doras pro'jrama'veis. 
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Papel autocopiativo Extra Copy. 
Ocomego deum trabalho limp a 





Extra Copy e, 
tecnologicamente, o mais 
avangado papel 
autocopiativo produzido 
noBrasil.Abasedo 
Extra Copy eo papel para 
formulariocontinuo 
Simaform, internacionalmente 
reconhecido como urn dos 
melhoresemseugenero, 
fabricadopelalPP. 
Otipoderevestimentoeo 
grande diferencial que torna 
Extra Copy sem similar 
nomercadobrasileiro. 
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autocopiativos 
microencapsulados, 
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com revestimento a base de 
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maislisaeuniformee. 
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uma impressao e copias 
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Ela podera imprimir os telex 
em ate 8 vias. Copias perfeitas. 

Extra Copy e uma revolugao 
no processamento de dados. 

Extra Copy aumenta a 
eficiencia da impressora e 
pelo simples fatodenao 
tercarbono, reduzo 
trabalho do operador. 

Extra Copy e garantia de maior 
produtividade e economia 
gerando copias limpase 
segurasemate8vias. 
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aosequipamentos. 
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Nunca 

compreuma 

coisa que voce 
naovaiusar. 

i "X" I "^ - ?\ ar\ 1 Leve logo um microcomputador 

* •' \ W? - I TK 85, porque ele e realmente facil de 

•i '■ k\ B it usar: ja vem com manual de instrucpes, 

I ' ' \ « que ensina,em portugues claro, 

a ? t&mMMMM j lljlllljijl I A parrir dai, voce pode preparar 

I ^^1^^^^^^^^^^^^ ^ / seus proprios programas ou utilizar as 

/ _^^»:m^ centenas de programas que ja existem 

/ ^*««*^^Hll^hhts^_ no mercado,para cadastrar clientes, controlar 

/ _^— ^ estoques, manter em ordem o orcamento 

— ^ ■ , ■■:■ ■■ .. ~ - _ ^familiar, fiscalizar a conta bancaria, estudar 

m- -~ LL *J ■ " " " ' " JT B rnatematica, estatistica, jogar xadrez, guerra 

mZ~ -w W»«j w b*. h. *_ w ... nas estrelas, e o que mais voce puder imaginar. 
■ .«- *—•«*.,«* * . «« „_ ^ «- E a |^ m c jj SSQ t(JC j Q -[-[</ g5 tem 
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tambem o precp mais acessivel do mercado. 
„,,. ■ ,,._ „., I, Peca uma demonstraoao. 

TK 85,o micro que voce pode usar 



MMS55HSIKI]! 



computadores pessoais 



iftl UcCftt* mi 






te»$S 




HURLEY. L.,Programacao 
TK-82/TK-83/TK-85/CP-200, 
Editora McGraw-Hill. 

I Este livro destina-se as pessoas 
que estab se iniciando no campo 
da computacab. Atrav6s dele, o 
leitor aprendera a programar em 
BASIC baseando-se em urn con- 
junto de programas que se ajus- 
tam ao TK-82, TK-83, TK-85, 
CP-200, ZX-81 e TS-1000 com 1 
Kbou 2 Kb de RAM. 

Atraves de um texto simples, 
com ilustracdes, o livro da" expli- 
cacdes Wsicas sobre computador 
- classificacab das teclas, de- 
senho, movimento, numeros, 
tempo e como processar progra- 
mas — o que possibilita ao leitor 
r£pida compreensa"o. 

Cada capi'tulo comeca com um 
programa curto e Weil, como por 
exemplo, os de movimentos, jo- 
gos e enigmas que, apesar de sim- 
ples, sab capazes de despertar 
grande interesse nos iniciantes. 

TOWNSEND, C, dBase II - Quia 
do Usua'rio, Editora McGraw-Hill. 




■ O livro e* um guia prttico, in- 
formativo e claro para professio- 
nals que queiram utilizer e proje- 
tar programas com o software* 
dBase II - Banco de Dados. 

Iniciando com Installation e 
passando por Information File Or- 
ganization, Records e Databases, 
o leitor sera conduzido para Sis- 
temas, Programacfles estruturadas 
a outros t6picos mais avancados. 

dBase II — Guia do Usua'rio 
apresenta um resumo de tecnicas 
que permitem ao usuaVio domi- 
nar completamente este software 
para Banco de Dados. 



CASTLEWITZ, C. M., Visicalc - 
Guia do Usua'rio, Editora 
McGraw-Hill. 
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■ Embora ja" tenham surgido vd- 
rios outros programas mais sof isti- 
cados, o Visicalc continua sendo 
amplamente usado. Isso se deve a 
sua ef iciencia e ao seu bom preco 
em relacab aos novos produtos no 
mercado. O Visicalc 6 uma pla- 
nilha eletrdnica de caMculo e pode 
ser visto como uma calculadora 
completada com fu nodes residen- 
tes que obedecem a comandos 
programados, para serem entendi- 
dos por ela. Qualquer neg6cio 
prof issional ou problema de con- 
tas dom6sticas que precisam ser 
resolvidos com Idpis, papel e uma 
calculadora, podem ser rapida- 
mente solucionados atraves deste 
tipo de programa. Uma das vanta- 
gens do Visicalc e que, caso haja 
alguma alteracab no item ou na 
folha, nab e preciso redigitar a 
folha inteira, o programa faz esse 
trabalho. 

O Visicalc — Guia do Usua'rio 
e um guia pr^tico para a utiliza- 
cab deste software, por isso, ele 
deve ser usado como um texto de 
acompanhamento, isto i, suas li- 
cdes devem ser seguidas juntamen- 
te com o computador. 

Este livro vai alem dos concei- 
tos basicos, fornecendo tecnicas 
avancadas e especiais, como tam- 
Wm me tod os que podem ser usa- 



dos para resolver os problemas 
mais complexos. 

O autor apresenta exercicios 
que visam preparer o leitor para a 
elaboracab de relat6rios prof issio- 
nais, assim como fazer com que 
ele obtenha o mdximo em qu ali- 
dade e ef iciencia em sua ativida- 
de. 

O livro trata, entre outros, dos 
seguintes assuntos: Entrada de da- 
dos, Definicab de calculos, Alte- 
racab do mostrador da tela, C6- 
pia de dados, Controle de cdlcu- 
los e Tecnicas de geracSo de mo- 
del os. 



GONCALVES, A.; SAMPAIO. F.; 
ALBERTO, L; SAMPAIO. P.. 
BASIC Para 19 e 29 Graus, 
Editora Miguel Couto. 

■ BASIC para 19 e 29 Graus e 
destinado a alunos que estejam 
cursando da 7? se>ie do 19 Grau 
ate 1 a 3? sene do 29 Grau. O obje- 
tivo do livro 6 transmitir informa- 
goes sobre a linguagem BASIC e 
suas aplicacSes, de maneira did^ti- 
ca. O primeiro capi'tulo 6 um his- 
torico da evolucSo humana, no 
sentido de medir quantidades e re- 
gist r a -las. Ele trata dos primeiros 
instrumentos utilizados pelo ho- 
mem — seus proprios dedos e pe- 
quer.os objetos — ate os sofisti- 
cados aparelhos de hoje, os compu- 
tadores. Os capftulos 2 e 3 explicam 
o que 6 um computador, como ele 
funciona, e o que sa"o e para que 
servem as linguagens de computa- 
cao. O quinto capi'tulo 6 sobre 
como operar o aparelho (como li- 
ga-lo, o teclado, teclas com ca- 
racteres especiais, recursos espe- 
ciais da tecla SHIFT). A partir 
daf, a obra se baseia no CP-500 e 
seus similares, apresentando exer- 
ci'cios com e sem o micro, basea- 
dos em assuntos como: instruco'es 
e comandos (PRINT. LET. CLS. 
NEW); programacSo; variacdes da 
linguagem BASIC (GOTO, IN- 
PUT); concatenacSo de instru- 
cdes; funcOes aritmeHicas; funcdes 
trigonom^tricas; operacfies do 




MODO EDIT e uso do gravador. 
O livro contdm, ainda, dois ap4n- 
dices: programas-exemplos e men- 
sagens de erro. 

BASIC para 19 e 29 Graus po- 
de ser usado durante um ano le- 
tivo, com uma aula semanal de 
50 minutos. Ha no livro uma su- 
gesta*o de sala-ambiente, utilizan- 
do micros e alguns programas em 
linguagem BASIC, abordando 
questdes do vestibular Cesgranrio. 

O conteudo do livro traduz as 
atividades realizadas, com alunos, 
professores e funciondrios, no Co- 
legio Princesa Isabel do Rio de Ja- 
neiro, em 1984. 




SAWUSCH, M., 1001 Aplicacdes 
para o seu Computador Pessoal, 
Editora Campus. 



I Apresentando uma longa e va- 
riada lista de possi'veis aplicacdes, 
este livro discute como criar o 
programa para cada uma delas, ge- 
rando, ainda, diversas outras idelas 
e possibilidades. 

Os programas se destinam aos 
mais diversos usos e preferencias, 
e suas aplicacdes cobrem os mais 
variados campos: financas e negd- 
cios (AvaliacSo do Estado do Imd- 
vel, Dispositivo de Vendas, Decla- 
racflo de Rendimentos, Tabula- 
dor); matematica (An^lise Estatfs- 
tica, ResolucSo de Equacdes Si- 
multdneas, Programa/Plotter); 
ciencia e tecnologia (Calculo da 
Eficiincia do Uso da Energia, Pro- 
grama de Antena, Recreacdes Ma- 
tem^ticas); educacab (O Compu- 
tador como Instrutor, Simulacdes 
Educativas); passatempos e jogos 
(Computadores e o Xadrex, Escri- 
tor de Histdrias, Magicas, Jogos de 
Simulacab) e gerais (Catilogo de 
Enderecos e Telefones, Cilculos 
das Despesas de Luz, Gas e Agua, 
Auxi'lio aos Deficientes). 

Para ajudar a colocar as ideias 
em acab, o livro apresenta tam- 
Mm os proprios programas, fluxo- 
gramas, diagramas e ilustracdes 
que podem ser acompanhados pas- 
so a passo. 
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Na tela do seu Sine/air aparece uma cidade com muitos pridios. Voce tera" 
que fazer um voo rasante noturno debaixo de uma tempestade... 



Aperte os cintos e 
pilote no escuro! 



Claudio Costa 



Voce 6 um piloto cuja missao e 
sobrevoar uma cidade a noite 
num voo rasante por entre os 
edificios, durante uma hora. 
aviao, por6m, nao possui alguns im- 
portantes instrumentos de voo, alem de 
estar com os far6is quebrados. 

Agora, so lhe resta utilizar sua perspi- 
cacia e reflexos rapidos, pois esta muito 
escuro e tudo o que voce consegue dis- 
tinguir vagamente e a silhueta dos pr6- 
dios la" embaixo. Tentar um voo rasante 
e" muito perigoso, porque esta" ameacan- 
do um temporal e, embora algumas nu- 
vens se dissipem tab logo voce as atraves- 
se, outras estao carregadas de eletricida- 
de e podem destruir seu pequeno aviao 
(se isto acontecer, entretanto, o micro 
lhe dara a oportunidade de tentar nova- 
mente, quando as condicoes atmosfe'ri- 
cas estiverem melhores). Procure tam- 
be"m nao destruir as antenas dos edifi- 
cios, ate" porque uma colisao numa delas 
podera ser fatal. Por isso, manobre com 
cuidado e prove que voce 6 capaz de 
veneer esta prova. 

A digitacao deve ser iniciada carre- 
gando-se o Micro Bug e criando-se uma 
linha 1 REM com 34 caracteres quais- 
quer. De entrada no Bloco Assembler, 
operando o comando M. Feito isto, re- 
torne ao BASIC e digite a listagem 1. 
Ela vai introduzir o desenho da cidade 
na variavel C$. Digite as linhas tal como 
estao na figura. 1 , introduzindo uma li- 
nha de cada vez. (Os caracteres assinala- 
dos (M ) devem ser digitados em vi'deo 
inverso - GRAPHICS SHIFT 5, GRA- 



CS( 1 ) [ 



CS(2) [ 



CS( 3) [ 



CS(») | 




Figura 1 

PHICS SHIFT 8 e GRAPHICS SPACE). 

Ao final de cada linha, tecle ENTER ou 
NEWLINE e confira o desenho. Se esti- 
ver tudo certo, aperte qualquer tecla e 
repita o procedimento para a linha se- 
guinte. Se houver erro, tecle N e repita o 
procedimento. 

Finalmente, apague as linhas 4 a 15 e 
complete o programa digitando a lista- 
gem 2. N2o use RUN hem CLEAR. Gra- 
ve o programa digitando GOTO 300. As 
teclas 6 e 7 movem o aviao e, ao final do 
jogo, qualquer tecla pressionada inicia 
uma nova partida. Este jogo admite tarn- 



be*m que voce o modifique ao seu gosto. 
Uma sugestSo 6 incrementar o programa 
para que o micro faca o desenho da ci- 
dade aleatoriamente. Assim, quando vo- 
ce estiver cansado de enfrentar o mesmo 
voo, poderi fazer um novo percurso. 



Cltudio Costa 6 desenhista free-lancer e tern 
como hobby a programacSo de microcompu- 
tadores. 
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Bloco Assembler 






16514 . 




4-2 


16531 . 


. , 201 




16515 


% t 


_9 


16532 


• • — — - 


16516 


a t 


54 


15 533 


. . 19 


•6517 


g $ 


35 


16534 


• • t 


" 6518 


f a 




16535 


• i - — 


.,--.. _ 


t B 


- -- 


1653 6 


• i i. c C 


16520 


u f 


22 


16537 


3 ^ 


16521 




£05 


165 3 i 




16522 


f , 


14-5 


16539 


. , 45 


165S : 


t f 


64 


16540 


, , 


16524 


f a 


• 97 


15541 


.a ' :, ~ 


16525 


t g 


5 


16542 


. , 16 


1652S 


t t 





1554-3 


. . 249 


5527 


t t 


'-1 


165*4- 


. . 119 


16 525 


a s 


193 


1654S 


. , 19 3 


1652 9 


t t 


5 


1654fi 


. , . 225 


16530 


• • 


24-5 


16547 


. . 201 



Ustageni 1 



10 
n 

_9 
— i 
14 

■- - 



■IM '_ = 384 
.ET X = 1 
.ET • =52 
r 0R T = l _ : 12 
RINT RT 18 ,0 "C$ t";Tj"J" 

input 3= [> to y) 

pint rt t 3 5 • x to 

:f inkey$*"N" then goto 9 

[f inkey$«" " then goto 11 

.ET XaX+32 
.ET = -39 

IEXT T 



Listagem 2 



10BPOKE 16418 

_3 -ET H$= W 

20 ^ET Pi =5 

25 -ET 0=H 

30 -E^ *=0 

IE LET 5«H 

40 3l_5 

45 --'-I 

50 -'RINT hT 4 9 



6; "/-/" iTRB 2" 



I 



~5 - PI--' - 3 = 
60 FOF T - 1 

3 3 = PInT 




70 -3'~ 

75 fqr T=l TO INT (RND*45) +10 

50 PRINT -^ INT (RND*4),INT CI 

ND*32) .; CHRS 136 

35 NEXT T 

9 PRINT 9T H , H; R$ 

9 3 PRINT HT R,H; " 

100 FOR T=0 TO 30 

103 _3^ 5=5+1 

110 ^ET R=R + i. INk.Ey$ = "d" i - (INKE" 1 
$="7- ) 

115 -ET H=H+ <H :0) 

120 PRINT RT :T-l; " 

123 RflNC JSR 16514 

130 PRINT hT R,T; 

135 _3~ WaPEEK (PEEK 16393+256 

PEEH 153 9 9 
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140 IF U->0 THEN GOTO 175 

14-5 -RINT RT R,T.;R$ 

150 LET 0=H 

155 LET H=T 

150 IF 5=216 THEN GOTO 

165 NEXT T 

170 GOTO 90 

175 IF W«136 THEN GOTO 

130 for J=l TO 6 

135 PRINT P:T fi,T;"TB 
! k+."" 

190 NEXT ._: 

195 PRINT ~~ 19 1: " 

; AND 



30 

05 
RT H 



JOCE BRTEU- 






h N D 



128) 



200 GOTO 235 

205 FOP J»l TO 6 

210 PRINT hT h,T;R$;P ' R,T; 'W 

RT R ,T; "W ;RT R ,T; H 



RUIDO ROR UH Rflli 
RR , rtEIN ' 






iy,i; 



:E CONSEGUIU 



JOCE FDI DE 

UE 



'Atflrf^MgEMEK 



EMRO DE UO 



lUER TENTRR O 



2 - 3 — ■ P -l N H 2 — — 
9i INT ;:■= 3 - 3 +0 . 5 
240 P RINT TRE 1; 

■Z33SSB 

245 IF INKEYfs"" THEN GOTO 242 

930 SOTO 20 

300 5RUE -3-0TS" 

310 GOTO 3 



A 



frcraftH 

pfus 

com "^ 

0IDE0TEHT0 

voce ja encontra na 





O seu microcomputador CRAFT II plus, 
pode agora ter acesso ao VIDEOTEXTO* - o 
banco de dados da TELESP, com imagens a 
cores, atraves de uma interface RS 232-C, um 
modem assincrono e um software dedicado, 
a venda e em demonstragao na SACCO. 

Torne-se um usuario do VIDEO-TEXTO, 
opcionalmente tambem do Projeto Cirandao, 
e garanta hoje o seu presente de Natal. A sua 
familia tambem vai poder usar e gostar 
muito. 

"Sao Paulo - Santos ■ Campinas 

SACCO Computer Store 

Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
SSo Paulo - SP - Tel.: (011) 852-0799 



Sessao 




western 



Estamos em pleno velho oeste e voce se vangloria junto a seus 
amigos de ser o melhor gatilho de toda a regiao. Isto chama a atencao 
do estranho forasteiro de olhar metalico que o observava calado num 
canto do sallon. Com um ar desafiador, ele — um micro da linha 
Sinclair de 16 Kb ou mais — chama voce, na f rente de todos, a provar 
essas qualidades. Agora so Ihe resta aceitar o desafio. Que venca o 
melhor! 



Claud io Costa 



Este e um jogo para testar a sua habilidade e os seus re- 
flexos. Durante um intervalo de tempo qualquer, sera 
lan9ada uma serie de moedas para o alto. Voce" rece- 
bera uma municao inicial de oito balas, mas a cada 
moeda alvejada voce ganhara mais municao. numero de pon- 
tos feitos sera tanto maior quanto mais longe a moeda atingida 
estiver. Entretanto, a cada erro, aldm da municao, voce perde 
10 pontos. Nao atirando, voce nao perde pontos, mas o compu- 
tador consider^ que voce nao acertou o alvo e o numero de 
alvos e" escolhido por ele. Se o seu escore for muito baixo, o 
computador mandara voce praticar mais, dizendo que "voce € 
pessimo no gatilho". Agora, prepare-se como um cowboy e 
boa sorte ! 

O PROGRAMA 

Totalmente escrito em BASIC, o programa 6 simples, tendo 
como unicos detalhes a utilizacao de oper adores 16gicos e efei- 



tos de animacSo. Se o usuario pretender realizar alguma modi- 
fieacao. as principals dicas sao as seguintes: 

• linha 35: define o numero de alvos e,conseqiientemente,o 
tempo de jogo; 

• linha 95:estabelece ascolunasde impressio da moeda; 

• linha 285 : soma os acertos; 

• linha 350: calcula os erros; 

• linha 355 : calcula o escore (as classificadas podem ser modi- 
ficadas). 

Como este programa utilliza muitos recursos grdficos, e pre- 
cise tomar cuidado na hora da digitacab para nao trocar carac- 
teres ou omitir espacos em branco. Grave o programa com 
RUN 450. As linhas seguintes a 450 desenham apenas a apre- 
senta?ao do programa e voce pode omiti-las, se desejar ganhar 
tempo de carregamento. 

Cliudio Costa 6 desenhista free-lancer e tern como hobby a programa- 
cao de microcomputadores. 









B 0; ' 
55 

70 
75 


FOR T=l TO 7 

PRINT M$ 

^ET M$=M$+"1" 




Cowboy 








_• -• E -' 1 C L fl U '■-■ I ; -' COSTH 




30 


NEXT T 


5 POKE 16*18 C 




85 


FOR J=0 TQ n 


IO RRND 




90 


LET B=23 


15 let m= "miiiiiiww 




S5 


^ET R=INT (RND*12) +15 


20 LET 5=0 




100 


PRINT RT .0: "MUNICflO: 


£5 LET P=5 




" ";TRB 20; "PONTOS: "JSj" " 


30 LET fi*S 




110 


IF NOT M OR J=N THEN GOTO 3 


35 LET N=INT (RND*15) +10 




50 




4-0 LET M*8 




115 


PRINT RT B ,R; "0" 


4.5 LET C> = 11 




12© 


IF INKEY$ = :, 0" THEN GOTO 1EC 


50 CL5 




125 


PRINT RT B .R. " " 


5S PRINT AT 3 ■ 5 ; "i— " ; THE' 4; 


^s 


130 


LET B=B-1 


fc^TflB 5;"Mi".;TRE 5; "■T " ; ThB 


135 


IF P AND B=l THEN GOTO ±-C 


9( 




140 


IF B=l THEN NEXT J 


50 PRINT TRB -; ,, 1 ^';TRE \i "\ 


IP 


145 


IF NOT p THEN GOTO 115 ' 


TRE 1 »■ RE JJIJl 

-RE III JC" TRB l."U. B il 


W 


150 


PRINT RT 8 .D; " -■' 


■ 


155 


IF R=D+1 RND B=3 THEN GOTO 


TfiE 11 1! TRE 1 I II 


; Tfi 


215 
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160 ^ET D=D + 1 

165 IF D<27 THEN PRINT RT B,R', U 
0" 

170 IF 0<>27 THEN GOTO 125 

175 GOTO 310 

ISO LET P=l 

135 LET M=M-P 

190 PRINT RT 13.7;"%" :RT 11.. 3;-' 
S" ;RT 12,9; ' m " 

195 PRINT RT 10,7;" " ; RT 11,©;" 
RT 12.9 " ' 

200 PRINT RT 9,7; "^™" ; RT 3,9 
» P.T ;= . 9 — :: ; RT 8,9;"™ " ; RT 7 

9 "BUM"; fit 3,12;"!";fiT 5,12," " 
; fit 7 , 9; " 

210 GOTO 150 

215 PRINT RT 3,R;"0";RT 7.R-1;" 
S l" hT 5, R-2;" - * , RT 9.R-1;" 
■■ ■■ RT 10. R-2; ' , ," 

220 PRINT RT 5,R;" " ; RT 7,R-1 
" -^ 6 , - -2; " " ; RT 9 ,R-1 
".: RT 10 R-2 " 

225 FOR T=9 TQ 23 

230 PRINT RT T , R-l; '.'."; RT T,R + 1 

233 PRINT RT T-l ,R-1; " 

2 4-0 NEXT T 

2+5 PRINT RT 23,R;".";RT 22, R ' 

*250 PRINT RT 22 .R-2; "\"; RT 22 , P 



HT 



21.R-3; "' 



255 -PINT RT 22, R-2;" " ; RT 22, R 
-9 RT 21 .R-3 

230 FOR T = l TO 3 

265 PRINT RT 7,11; V; AT 5,12 

273 PRINT RT 7,11.;" " ; AT 6 ,12 

875 NEXT T 

230 _3~ M*M+2 

9 55 _ET h=h+1 

290 LET 5»S+10*C 

355 PRINT RT 23, R-l;" " ; RT 22 

- 

310 PRINT RT 3 . D ; " 

315 PRINT RT 9,7;" " .; RT 5 r 

520 PRINT RT 10,7;"S";RT 11.5 
\ RT 12 9: "■ " 

195 -- Z'- -~ 19 9; " " ; RT 11 . 3 
RT 15 ~ 

330 -ET P=0 

335 _ET D=li 

340 1= 5 THEN i_ET 5=5-10 

2^3 NEXT J 

3 50 ^ET E=.J-R 

555 _ET Cafl*10/d 

3 55 FOR T=9 TO 31 

355 PRINT RT 3,T; ", " , RT 3.T-. "■ " 

3^0 NEXT T 

375 PRINT TAB 11; ("SUA MUNICRO 
RCREOU" PNC NOT Mi+t" TEMPO E5G 
OTfiDO" RND li) 

3 55 PRINT RT 6,10;"UOCE ROERTOU 

";fl." Rl . : ("5" RND fiol);TRE 
15 j "E ERROU ■: E 

5 55 PRINT RT 11, 12; "VOCE E" "; ( 
"LRMENTRUEl " RND C : =1) + C "PES5IM0 
" AND Ol RnC I -.3) + ("RUIM" AND 5 

=3 AND C<5) + ("RRZORUEL" RND 3 = 
5 RND C<*8)+("B0M" RND C>3 AND 
:10i + 1. "FERA" AND C = 10) 

390 PRINT TAB 12; "NO GATILHO" 

395 IF C<:3 THEN PRINT RT 15,9:" 
RC0N5ELH0 PRRTIGRR MR 15" 

+ 0C PRINT p~ 13.13 "TECLE WSM P 
UGGRR";TfiB 15; "DE NOUO" 

405 IF INKEy$<-"0" THEN GOTO 4-0 
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I I 



410 PUN 

450 5RUE "COUBOY" 
455 PRINT RT 10,7; H 
■ I I 
460 PRINT TAB 7; "| "| || |WI 

■455 print Tfte 1 .1 mini 

470 PRINT TRB HH 



II 



I 

475 GOSUE 570 

430 C 0R T=i TO 3 

4 35 5CP0LL 

490 PRINT TRE 31; " " 

495 NEXT T 

500 FOP J =14 TO 45 

505 PLOT J , 30 

510 NEXT •_: 

515 GOSUE 570 

520 PRINT RT 9 , ; 1 OBJETIUl 
DO UOGO E" RLUEJRR RS M0EDR3 
TIRRDR5 PRRR OIMR." 

325 SOSUB 570 

530 PRINT I 5E UOCE CONSEG! 
R, GRNHR MR 15 MUNICRO. MRS SI 
EPRRP , PERDE PONTOS." 

535 GOSUB 570 

540 PRINT I PRRR RTIRRR TE! 
E ••••0' 1 " ." 

545 GOSUB 570 

550 PRINT .. I 30R SORTE . . . 

555 GOSUB 570 

55Q PUN 

570 C 0P T=0 TO 20 

5^5 NEXT T 

530 RETURN 




CONSULTORIA ORGANIZACIONAL 
DESENVOLVIMENTO DE SOFTWARE 
IMPLANTAQAO DE SISTEMAS 
TREINAMENTO 



SISTEMAS DESENVOLVIDOS: 

• ADMINISTRAQAO DE IMOVEIS 

• CONDOMI'NIO 

• CONTABILIDADE 

• CONTAS CORRENTES 

• GERENCIA DE 
REPRESENTAQOES 

• MALA DIRETA 

• OPEN MARKET 



s0 £TA 

B pA f/i£LH0P 
D A UAU^ De 



SEGMENTO DO MERCADO: 

Mini e microcomputadores 



• CP/M 

• Labo 8221 

• Itautec 

• Sistema 700 

• EBC 



Maquis 
Unitron 
CP500 
e compativeis 



AV. RIO BRANCO, N° 185. GR. 1820/21 
CEP: 20045 - TEL: (021) 252-1569 
RIO DE JANEIRO - RJ. 
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No final da guerra, restam as duas "grandes potencias" apenas bases de 
misseis. Vence aquela que arrasar o inimigo, neste programa para Apple 



Guerra na montanha 



Andre Koch Zielasko 




G Guerra na Montanha 6 um jogo desenvolvido num 
Micro Engenho, modelo antigo, com 48 Kb e drive, 
sendo portanto compativel com os equipamentos da 
linha Apple, empregando cores e o recur so sonoro. 
jogo cria uma tela de alta resoluffo representando uma 
montanha, se vista de perfil. Nos dois extremos da tela estao 
implantadas bases de misseis, que serao controladas indepen- 
dentemente por dois jogadores. objetivo 6 destruir a base ini- 
miga, cada um com seu respectivo canhao. Por isso 6 importan- 
te calcular o angulo de tiro a partir do primeiro disparo. Deve 
ser levado em conta o fator vento, que pode estar soprando pa- 
ra um lado ou outro, com a velocidade oscilando ate\ no maxi- 
mo, 20 quilometros por hora. 

A partida termina quando a base inimiga 6 destruida. Mas 
apenas com muita sorte isso acontece nos primeiros tiros. Hi 



48 



obstdculos a veneer, como a montanha e a mudanca da dire9ao 
do vento, que forcard a alteracSo do angulo de tiro. Terminada 
a partida, surgem novamente na tela as duas bases de misseis, 
dispostas em nova area geograTica, isto e\ com montanha dife- 
rente ou at^ mesmo uma cordilheira. A sugestao 6 marcar a 
partida por sets impares: tres, cinco ou sete. Muita atencSo na 
tarefa de digitar, pois a impressora utilizada nSo diferencia, co- 
mo deveria, um de um 0. 



Andrt Koch Zielasco estuda linguagem BASIC, FORTRAN, COBOL e 
Assembler. Pesquisa o emprego de micros de logics Sinclair nas Areas de 
Astro nomia e Telecomunicacdes. FreqOentou por dois anos o curso de 
Tecnologia em Processamento de Dados da Unisinos, RS. 
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B20 


VTAB 22: MIHB 1/: PRINT VEN 
















Guerra na * 


A/f /v 


1/t / Si -1/t L\S1 




TO: "1 ABS (W>1" "|| HTAB 1 






'VlUi 


iicmua 




9: VTAB 23: IF W THEN PRINT 












830 


-< "|| RETURN 

PRINT " ; 




















840 


RETURN 


10 


REM 


460 


IF ABS (XO - XX) < 4 THEN F 


850 


FOR I - 900 TO 90O ♦ IB: READ 


15 


REM ANDRE KOCH ZIELAB 




- i:xx - xo:yy - yo - 13: goto 




A: POKE I, a: next I: return 


20 


REM CX. POSTAl 




560 






23 


REM TRAMANDAI RS 95590 


470 


HCOLOR- 5: ROT- 0: DRAW 1 AT 


855 


DATA 173,48,192,136,208,4,19 


30 


REM 




XO.YO - 13: HCOLOR- 6: DRAW 




8.1,240,8,202,208.246, 166,0, 


40 


GOSUB 930 




1 AT XI, Yl - 13 




76,132,3.96 


SO 


1 TO 3: FOR I • 100 TO 


473 


GOSUB 820 


860 


DATA 4,143,0,10,0.33,0,60,0, 




rSP - 1: POKE 0. t: POKE 


480 


VTAB 23: HTAB II PRINT "CARR 




103,0, 146. 146. 146,58,47,45,3 




l.o: : WEXT I.J 




EGANDO-i: HTAB 30: INVERSE : 




3,61,63.63,35 


53 






PRINT •' LANCANDO »l NORMAL 


B70 


DATA 45,45.45.62.63,63,55,43 


60 


DIM .". (160)! HCOLOR- 0: FOR V 








,45.45,7.0, 146, 146. 186, 123.7 




- TO 159: HPLOT o.y:v. 


490 


F - 1 




3,9.21,214 




- PEEK (38) * PEEK (39) ■ 


300 


VTAB 21 : HTAB 30: INPUT "ANG 


880 


DATA 251,251.187,78,77,205,2 




Me * 1 




ULO :"|A2 




7, 13, 13, 13. 13.30.223,255,63. 




HR» (4> 


304 


GOSUB 820 




255,31.7,0. 18 


80 




505 


FOR 00 - 1 TO 3: POKE 0,30: POKE 


890 


DATA 77.149.233.219,221,219. 






l.lOO: CALL 900: POKE 0,90: POKE 




223. 151. 151.78.9.77, 105.9,77 








1,144: CALL 900: NEXT 00 




, 149.250.^51.251.59 


1 10 


SS - 


510 


D2 - - 2 • SIN (KK • A2):XB 


900 


DATA 31.223.215.187.77,105.7 




: GOTO 250 




- Xl:YB - Yl - 4:E2 - - 2 • 




7. 13, 13. 13, 109.77,213,219.21 








COS (KK • A2) 




9,219,221.31.63.45 




JR- 3:Y0 - 100 ♦ RND (1 


520 


GOSUB 690: XX - XB:YY - YB - 


910 


DATA 45,0.36,228.219.14,30.1 




> • 40: V] - IO0 ♦ RND (1) • 




15: HCOLOR- 5: GOSUB 650 




4,246,219,150.78,9, 151,77.9. 




40 


530 


IF ABS (XO - XX) < 4 THEN X 




100,12,109,42 


150 


XO - 10 ♦ RND (1) • 70: XI - 




x - xo:yy - yo - 13: goto 56 


920 


DATA 150.18.151.151.223,28.2 




270 - RND (1) • 77: XL - XO ♦ 









8. 148.242.31. 196.28.23.222. 1 




10: XR - XI - 40 


540 


IF ABS (XI - XX) < 4 THEN X 




23. 73. 73. 73. 73. 73, 9, 5, 




V - VO 




X - XUYY - Yl - 13:F - 0: GOTO 








FOR X - 3 TO 275: IF > XL THEN 




560 


930 


TEXT : HOME : GOSUB 1220 




HPLOT X.YO TO X, 191:HV.(X> - 


550 


GOTO 380 


940 


VTAB 5 




yo: next : goto 120 


560 


FOR - 1 TO 16: HCOLOR- 8 • 


950 


PRINT "DUAS BASES ESTAO LOCA 


180 


IF RND (1) .2 THEN DY - RND 




RND (1): DRAW 1 AT XX, YY 




LIZADAS EM LADOS" 




< 1 > • 6 - 3 


570 


FOR I - 2 TO 4: HCOLOR- RND 


970 


PRINT "OPOSTOS DE UMA CORDIL 


190 


IF Y > 150 THEN DY - - ABS 




(1) • B: DRAW I AT XX, yy: FOR 




HE IRA COBERTA DE NEVE." 




(DY) 




J - 1 TO 10: NEXT : HCOLOR- 


980 


PRINT "0 VENTO SOPRA CONSTAN 


200 


IF Y • 70 THEN DY - ABS (DY 
) 




0: DRAW I - 1 AT XX, YY: NEXT 


990 


TEMENTE" 

PRINT "COM VELOCIDADE DE.NO 


210 


IF X > XR THEN DY - SGN (Yl 


580 


FOR I - I TO 3: NEXT : DRAW 




MAXIMO 20 KM/H. ■ 




- Y) • 2.5: IF ABS (Y - Yl 




4 AT XX, YY 


lOOO 


PRINT 




1 3 THEN DY - 0:Y1 » Y 


590 


SCALE- 11 NEXT 


1010 


PRINT "SUA MISSAO E' CALCUL 


220 


H7.<X) - Y 


6O0 


GOSUB 130 




AR ANGULO APROPRIADO" 


230 


HPLOT X,Y TO X.19UY - Y ♦ D 


610 


HCOLOR- 5: ROT- 0: DRAW 1 AT 


1020 


PRINT "PARA LANCAMENTO DO 




y: next 




XO.YO - 13: HCOLOR- 2: DRAW 




PROJETIL NUCLEAR- 


240 


RETURN 




1 AT XI. Yl - 13 


1030 


PRINT "DA SUA BASE E ENTAO. 


290 


REM 


620 


IF F - THEN SI - SI ♦ l: GOSUB 






260 


READ NS: READ LN 




BOO: GOTO 480 


1040 


PRINT : PRINT : HTAB 10: FLASH 


270 


DIM SX(LN): FOR I - 1 TO LN: 


630 


IF F - 1 THEN S2 - S2 ♦ 1: GOSUB 




: PRINT "•DESTRUIR 




READ SV. (I) : NEXT I 




80O: GOTO 390 




•": NORMAL 


2B0 


h - BiBO - ln: himem: h 


640 


END 


1050 


PRINT : PRINT "A BASE INIMI 


290 


POKE H,NS 


650 


DRAW 1 AT XX, YY 




GA 


300 


POKE 233, INT (H / 256): POKE 


660 


FOR I - 2 TO 3: HCOLOR- 5: DRAW 


1060 


PRINT : PRINT : INPUT "TECL 




232. M - 256 • PEE^ (233): FOR 




I AT XX, VV. FOR J - 1 TO 10: 




E • CR PARA C0NTINUAR-IX4 




I - H ♦ 1 TO LN ♦ H: POKE I. 




NEXT : HCOLOR- 0: DRAW I - 


1065 


GOSUB 850 




S7.(I - H>: NEXT 




1 AT XX, YY: NEXT 


1070 


HOME 


310 


SCALE" l: ROT- 


670 


FOR I - 1 TO 3: NEXT : DRAW 


lOBO 


VTAB 3 


320 


REM 




3 AT XX, YY 


1090 


PRINT "PARA CUMPRIR SUA MIS 


330 


- 3. 1415927 / 180 


680 


RETURN 




SAO, VOCE DEVE" 


340 


Fl - 0:F2 - 


690 


IF F - 1 THEN 750 


MOO 


PRINT "CALCULAR ANGULO AP 


350 


GOSUB 800 


700 


XN - xa:yn - YA 




ROPRIADO DA" 


360 


IF RND <1 ) .5 THEN 470 


710 


XA - XA ♦ El: YA - YA ♦ Dl:Dl - 


1110 


PRINT "TRAJETORIA DO SEU CA 


370 


GOSUB BIO 




Dl ♦ g:ei - El *"W1 




NHAO, " 


380 


HCOLOR- 5: ROT- 0: DRAW 1 AT 
XO.YO - 13: HCOLOR- 6: DRAW 


720 


IF YN < 1 OR YA < 1 THEN 710 


1120 


PRINT "DIGITANDO NUMERO C 
ORRESPONDENTE" 




1 AT X 1 . Y 1 - 1 : 


730 


HCOLOR- 0:P - YX(YA) ♦ XA / 


1125 


PRINT "SEGUIDO DE <CR>" 


390 


VTAB 23: HTAB 1: INVERSE : PRINT 




7:A - PEEK (SS) - PEEK (SS 


1130 


PRINT 




■ LANCANDO " I : HTAB 30: NORMAL 




>: HPLOT xn,yn:o - PEEK (P> 


1140 


PRINT 




: PRINT "CARREGANDO" 




: HCOLOR- 3: HPLOT XA.YA: IF 


1150 


PRINT 


400 


F - 




< > PEEK (P) AND XA < 27 


1 160 


PRINT 


405 


POKE 33.15 




7 THEN 700 


1170 


PRINT 


410 


VTAB 21: HTAB 11 INPUT "ANGU 


740 


RETURN 


1180 


PRINT 




L0:"«A1 


750 


XN » xb:yn - YB 


1190 


VTAB 22: INPUT "TECLE <CR> 


4J5 


POKE 33,40 


760 


XB - XB + E2:YB - YB ♦ D2:D2 - 




PARA COMECAR A BATALHA. .." 1 X 


416 


FOR QQ - 1 TO 3: POKE 0,80: POKE 




D2 ♦ G:E2 - E2 ♦ Wl 




• 




1.110: CALL 900: POKE 0, too: 


770 


IF YN < 1 OR YB < 1 THEN 760 


1200 


HOME : VTAB 22: HTAB 10: PRINT 




POKE 1.144: CALL 900: NEXT 








"PREPARE-SE PARA A BATALHA' ' 




00 


780 


HCOLOR- 0:P - YX(YB) ♦ XB / 




" 


420 


Dl - - 2 • SIN (KK • A1):XA 




7: A - PEEK (SB): HPLOT XN, V 


1210 


RETURN 




- xo:ya - YO - 4: El - 2 • COS 




N:0 - PEEK (P>: HCOLOR- 3: HPLOT 


1220 


TEXT : HOME 




CM • Al) 




XB.YB: IF < > PEEK (P) AND 


1230 


VTAB 8: HT*B 6: PRINT "B U 


430 


ROT- 




XB > 3 THEN 750 




ERRA NA MONTANH 


440 


GOSUB 690: Fl - 0: XX - XA: YY - 


790 


RETURN 




A 




VA - 15: HCOLOR- 5: GOSUB 65 


BOO 


VTAB 24: HTAB 10: PRINT "• " 


1260 


FOR P - 1 TO lOOO: NEXT P 




o:xa - xo:ya - yo 




IS11" •"«: HTAB 27: PRINT "• 


1270 


HOME 


450 


IF ABS (XI - XX) < 4 THEN X 




"»S2»" •"« 


1280 


REM AQUI VAMOS NOS ... ' ' • 




X - XUYY - Yl - 13: GOTO 56 


810 


W - 19 - INT ( RND (1) • 40) 













:wi • w / loooo 


1290 


RETURN a 

at 



ARQUIVENA MEMORIA: EM FEVEREIRO, 
EDIQAO DE MS SOBRE BANCO DE DADOS 



• Banco de dados em micros • MUMPS, urn sistema para manipulacao de dados. • Reportagem sobre os 
micros que estao acessando bases de dados • SENSACIONAL programa para gerenciar dados no TRS-80 

• Manipulacao de vfdeo em Assembler para a linha Sinclair • E nao e so: dicas sobre 
programacao Assembler, L6gica de programacao, jogos, programas e... BUFFER, UM NOVO 
ESPAQO EM MS. CONHEQAI 



Tres astronautas estao perdidos num planeta desconhecido e so voce podera" 
salva-los. Mas cuidado com as estrelas que aparecerao na tela do seu Sinclair 



Missao resgate 



Claudia Eleone Gomes 



Voce 6 o comandante de uma nave de resgate (A) e 
precisa salvar tres astronautas que estao isolados 
num planeta desconhecido. Para realizar esta missao, 
voce tern cinco naves, que serao perdidas toda vez 
que houver um choque com uma estrela, um pouso fora das 
plataformas de resgate ou a saida do espaco pelas laterals da 
tela. movimento das naves e* feito atrav^s das teclas 5 (esquer- 
da)e 8 (direita). A nave e lan9ada aleatoriamente pela nave mae. 
O jogo apresenta os seguintes niveis de dificuldade: 
determinar a velocidade inicial da nave de resgate (pelo jo- 
gador), que vai de 1 a 4; 
a cad a resgate a velocidade da nave aumenta; 
. completada uma missao (tres resgates), o ce'u flea mais es- 
trelado e surge m outros tres astronautas para serem resgata- 
dos. 

Sempre que o jogador completar tres missoes, ganharf outra 
nave. No caso de perder todas as naves, ainda restart a op^ao 
de ganhar outras cinco naves e continuar o jogo no mesmo ni- 



vel de dificuldade em que se encontrava antes de perder a ul- 
tima nave ou corhecar a jogar novamente com a dificuldade ini- 
cial. Boa sorte e feliz missao ! 

DIGITACAO 

Para a parte em Assembler, carregue o computador com o 
monitor Assembler publicado em MS 23 e entre com os blocos 
1, 2, 3 e 4, nao se esquecendo de antes criar as quatro linhas 
REM, do initio da listagem BASIC, com os seus respectivos 
numeros de caracteres. Voce pode utilizar tambdm o MICRO 
BUG. Ap6s isso, elimine o monitor e digite o BASIC. Termi- 
nado, de RUN 2000 para gravar. 



Cla'udia Eleone Gomes 6 professors formada pelo Institute de Educacio 
e com curso de Introducao em Prooassamento de Dados e Programacao 
em Microcomputadores realizado no SEN AC £ usua'ria de um TK-85 
M um ano e meio. 

















Missao resgate 




1 => = -z l~l .CODE INC f i 


--C -;-5 15878 P03A-3B6tZNT -P0 


= s = 


- = ; 




;<=■ ase 


= :c 


1= P=: "HEN GOTO 300 


10 IF PEEK 16373=2 THEN GOTO z 


150 POKE 1S371 INT 'POSh 256' 


= :: 


GOTO 5000 




153 POKE 16739 Nl 


= : = 


IF FL«G»0 THEN GOTO =50 




158 POf 5 16741 N2 


238 


FOR N = l TO 6 


1= RftNC 


- = - poke - 1 : ~ ;- o 


i. ; 7 


PRINT OT 4 + 14+RNC- l*29#RNC 




160 SOTC i 


'B 






:~0 _E~ P3:=PEEf IS 3-0*256*PEE> 


;: = 




i5 = 3- 5 lfl riA .0 

50 LET R»0 

60 _ET R*>CMRt 188+CHRI 1AA+CH 


172 iw peer i6873*i then goto a 

06 




■Ir^^MHHM 










-i 166*CMR« --r 


178 POKB PC 5 53 






78 5~ Nfl . -^ 


iee -E^ r«r+i 




,_E-r Fl_AQ»l 




135 ^ET" '._=■..-•:- -.; 128 


_ . ^ 


POP N»l TO 5 


-= sosue rCOO 


130 FOP N=l TO 5 


- C0 


_ 2 -1I3 50E3 -" 


-CC _E~ P05h=PEEK 15396*=.5e*PEE 


= 00 PRINT RT 1A RE5G. -~ 


Z : 


■M 1 — ■ M 




-- zttttlfl 


- . i. 


• c ■ N 




= 10 ■=.-' ■> 


- ;iC 


IP M = =• 'lEN PRINT RT Z .k 


::c c-osub "000 


= =o print RT o = o :-=j :::e 5T 


- HO I 


: ::e i~~s m : -: = r 



50 



MICRO SISTEMAS. janeiro/85 



T £0 Z" H>9 THEN =-:••" ~~ .2 - 
HP.* CODE 3"S •■' 2»*128 - 
11 CMR1 [COM 3"i - --13' 

360 LET c =0 

370 -s M-3*INT IM/3 '«£•• 3-3 

▼0 22C 

30S LET Nfl .='•-.- •■- r 

see 3050E 1000 

390 COTC 220 

400 LET CR»PEE* -:i 

i:= := :h=:;: -hen goto 450 

110 FOB •• = - TC S 

420 poke POS : ::e 

430 =:• £ P08 CODE B" 

440 NEXT N 

150 =-- e Poa :- 

460 LET - "NflV-1 
4-0 Q08UE 1000 

510 IP na o then :-:~: 2r0 

516 FOB r - = - TO 50 

516 NEXT N 

5 - PRINT RT 20.6 

5-3 := INKE 5= 
5.2 IF INT EY0a 

520 UET NRV»S 

=25 G05UB 1000 
580 pb int RT 20 8 



Si - SOTC £=C 
522 =-'•: -■ = = 16-53 
£30 =='INT -- 10 2 3 
I RT 12 2 




;= -i 3 g ThEn PRIN"*" ChR* 5 3 

:e :-=s n+iae 

580 I* M r 'HEN PPINT .HP* '..C 
e" 6" 5 M - -^kz -3-tP* CODE 3 
~p$ - 2 -_£r_ 

660 PRINT 

= -0 PPINT RT 14. 
DE STRI p -: 
630 ==I"-- - _ -: 2 



598 ir lNrE-* = THEN GOTO 650 
600 Z= I - .- E S = 3' THEN GOTO 26 
610 IF INKE S = N" THEN 5T0P 
620 GOTO 590 

1000 FOR N=l TO 5 

1010 PRINT RT 22 NAVES AT 




.010 PRIN -- i: Z^PJ CODE i> 
:$ -.4 . . . „ 
1040 RETURN 
2000 SAVE --: JATJJ 
£0.0 SOTC 5000 

=000 LET INI*PEE> 16 396*256 *PEE- 
16397+709* -=- »710« ==2 ----- 
= =0 

60-0 I- ==- ""-£'. _E~ •=15- 
60.2 V s ==2 THEN LET KalSfl 
5011 1= ==0 THEN LET K«1S9 
£020 Z = -11 =££' ::3r6'256*PEE» 
16397+710 THEN BOTC £500 
50k. FOB -=k0 ~Z 2: _ 
21 - -■" 

-6-:; 



2: 

TO R05 STEP 



1673« 



£022 PRINT RT 

£02: PRNC J5B 

5024 NEXT L 
3025 LET :=. 

5025 POKE INI 
60 TO FOB N«INI 
60-0 _ET . :C££ 
6060 POKE N - 
3050 PRNC -3 = 
3030 POKE N . 
5090 ' • £ ■ ~ • • 

£.00 =:= P«i to 3 
£.-o =:- £ poa ■ 

6.20 POKE =Z! - -12= 

£::o NEXT = 

61-0 POKB 17100 ■ 

=1=0 PANC -:- ---32 

5160 LET !==££• -5 325-255-PEE 

5 1 2 r - : • : 

5162 B 0R Pal TO 2 
5165 POKE : ' 

kz\h =«'.: .■:= -6-;; 

POKE f 128 

LET 3=:-:: 

NEXT P 
LET 3=3*33 

«0P F.l TO 3 
POKE 5.36 
= jr£ 3- 166 
NE*T f 

FOR 0«1 TO 5 
NEXT 
NT - 



5167 
£15 3 
:!:: 

5 :~0 
61-2 

;:-: 

51-4 

5175 

51-5 

51 

5130 



80 

5 



PRINT 

:fp=0 



AT 2- 



.020 •.£■' 



1.10. "■ 
THEN PRINT RT 21,15 



5200" GOTO 232 

5500 FOP L=12 TO 10 STEP -1 



5510 PRINT ST :_ _ 

==.= NEXT _ 

££20 LET :=-. 

=6:0 30TG £C2r 

::;: --■■: j5B 1675: 

6001 PPIn" RT -C e 




1020 

e : 
THEN 

eoiO 

r066 
e Or 
r0f5 

rO-0 
rO-5 

5030 
6050 

-000 

-0-0 

-020 
-030 
-040 
-050 
-060 
-0"0 

-0:0 

rOOO 

=0 ;o 



IF XNKE i- THEN SOTO 6020 

IF INKEv» ■•■l" OR INKE'$ Z 

GOTO 6020 
:-:-. 5040-10 - . RL I'J- E I 
wET Nfi>25 
GOTO k= 
^ET N2»20 
GOTO 2 5 
^ET N2=-5 
GOTO 25 
LET N2=10 
GOTO 25 

LET 0»1+28*RND. 
FOR N*l TO 
PRINT RT 1 -..R* 
LET P05flaP05fl+l 
NEXT N 

POKE P08R -2 5 
_ET PO:ia=0 5R+33 
POKE POSfl 166 
RETURN 

FOR Nil TO 40 
PRINT RT 4. + 14 + PNC- ■ 1+29+RN: 



3020 NEXT N 
3030 RETURN 



Blocos Assembler 



16511 
-z=i± 
16530 
15555 
16545 
1555- 
,z=zl 
155-0 
^ = ~: 
15555 

-55r- 

15502 

.5 5 10 
155.5 
.5525 
-ziZ- 
.zz~l 
16550 
.6555 
1666S 

16562 
-5620 
.zirz 

.5-05 
16-14 
.5-22 
1673C 
16-55 
16-45 
16781 
-5 -±l 
16-70 
16--5 
16-5 5 

.5 "r- 

15502 

165.0 
1681C 

15 5 54 
.554£ 
-5 55 
16555 



5 30 30 E2 *E E3 

-- 5: :: Z-l ^5 5 

Be Rfl 55 5£ Rl 30 

50 5 00 «6 91 3 

50 5 60 30 



ee 

E - 



B4 



50 30 50 

5 5 80 

50 3 50 

ZC :0 30 



00 00 5 :; 
2E r^ 50 50 



30 5 
5 50 3 



30 B( 
zz 5 



3 5 

5: 



- 06 

F9 Cfl 2 5 

0: 40 22 

20 00 e: 

20 00 EC 

12 21 52 

:: 



Ec 

40 



50 



- r 

EE 
41 

41 

00 



C- 



: 4i :: 



2= 0. 20 00 

:: 6C 11 25 

bo :: ;2 R2 

CO 5! 4 1 :: 

50 :; -: 55 

bo 55 :o 55 



BO 3E 

01 1; oc 

4. Zi ED 

0- 2 00 



31 

54 

Zz zz 



£2 
--4 



£5 



5E 
FO 55 
-5 87 
= 4 87 
2- 55 



16934 

15 r4£ 



15355 
15 95 4 
1*97: 



-r r -r 

. - : - 



- _ 4 4 

1-052 
17060 

1707? 
1-054 
--052 
17100 

i7ioa 

.-..5 

.-.24 
17132 
17110 

1-.45 

i7ise 

.---2 



1-152 

.--20 
.-.5: 
1-205 

.-214 

17230 
1723C 
."245 
17281 
.~lzl 

z-i~: 

. " 2 - z 



MICRO SISTEMAS, janeiro/85 



5£ 02 32 £2 4 1 Zt 5E 01 

32 E9 41 C9 26 13 C4 2 5 
18 Dl 00 00 00 00 00 IE 



32 
30 
11 
07 

FE 



20 

: 2 
54 
22 

C5 
12 

41 

07 

FE 
31 
52 
20 
12 
3fl 
22 
10 
42 
41 

3R 
00 
00 



51 
42 
3fl 

0: 

12 

= 
"E 



0E 



07 



12 3R 

FE 01 

31 42 

BE 4 1 

20 07 

Cfl e E 

34 ; . 

22 Z- 

06 20 
12 Cfl 

4. 54 
0- 22 
FE 09 
. - 41 
-E 41 
2 0- 
Cfl FE 
3fl : - 
22:4 

0£ 20 
42 55 

41 54 

07 21 

FE 11 
: 1 42 
4: :; 
00 00 

00 IB 



30 42 3C 
20 0- 22 
5 5. =5 02 
3R 31 42 
22 CO 41 

04 20 
42 C 9 
41 3R 31 
07 
FE 

31 4 
Cfl 41 3fl 
20 0- kl 
C9 FE OR 

5 4 31 42 
22 5 41 
05 20 0" 



32 
5! 

20 
Z 2 

54 



FE 05 



22 55 

0- 20 
C9 



4. 

07 
= 3 
31 



42 

-1 3fl 
0- 22 

FE = 
51 4 = 
Cfl 41 
20 0- 
Cfl 22 DE 
9F 00 00 
00 00 00 



r £ 0: 



: 5 
20 
: ; 
34 
22 



4. 

07 



: : 
4. 
•:: 



3fl 5 : 

41 24 



00 

:•: 



14 

5 2 

:: 



11 87 

:e 4- 

0: 4J 



11 

5. 



3« 

4; 



41 77 

D6 41 
24 01 
30 2h 
35 5 
4. 36 
62 4. 



:: zk 

-- :: 

41 — 

:k 4. 



3E F5 

:: 52 

2m : : 

50 24 
56 50 

4 1 ZZ 

62 41 
CD 68 



32 6 3 
41 55 

4. -" 

: - 4. 
24 : ■ 

30 24 
35 5 
41 35 

62 41 





















Z--T- 


41 


77 




















--5 02 


■ a 


4. 


18870 


-4 


■fl 


00 


C2 


2fl 


£5 


41 


:; 


1-3 10 
1-315 

17325 
--3-4 
1-342 
17380 


8fl 


34 


155-5 


6a 


* _ 


se 


ISO 


11 


= - 


00 








1635 5 


3fl 




41 


"h 


^- 


-z 


81 






- 


165 5 i 


-4 






- h 


— — 


tc 


4. 




62 




152.02 


3C 


— i 


pe 


:. v 


2<d 


OB 


Jt 


00 




.5210 


32 




4. 


■- 


Ee 


4. 


ib 




41 




.6 r - 5 


- - 


- - 


= : 


— 


- 




Bfl 


Bl 







24 


DO 


11 


77 


CD 


52 


■=>0 


PR 


TF 


4 . 




z: 


■•" 


30 


2fi 




41 




4-, 


1 - 


60 


2A 


CA 


41 


f-? 


4 : 


36 


s 


2A 


cs 


cc 


62 


41 


36 


30 


24 


77 


CD 


62 


4 . 


:r 


3 


- • 




CD 


68 


41 




"- 


4 . 


77 


. 


68 


4. 


?fl 


C0 


41 


77 


CD 


62 


•=•0 


SR 


BE 


41 




3 3 


3fl 


= 


PA 


BC 


4. 




4x 


3€ 


30 


7A 


32 


( . 


IB 













/ ; \ 

r TESBI INFORMATICA LTDA. V 

SO PARA EMPRESARIOS 
MUITO INTELIGENTES... 



f. 



— A sua contabilidade atende a 
voce ou somente aos f iscais? 

— Voce tem urn bom controle 
de contas a pagar e a receber? 

— A sua administragao de imo- 

veis e realmente eficiente? 
Na TESBI Informatica voce en- 
contra programas de contabili- 
dade CAP/CAR e Administra- 
gao de Im6veis voltados para 
voce, Gerente eficiente. Todos 
desenvolvidos em DBII ou Ba- 
sic. 

Cursos prSticos de dBase, Wor- 
dstar e Supercalc. 



> 




Pi 



^ 



Melhores Informagoes pelo 
lei.: 284 6949 c Liege 

Av 28 de Setembro. 226 Lj 
110V Isabel 



Veja em quanto tempo voce e capaz de ordenar 
um tabuleiro de letras, nos micros da linha Sinclair 



A, D, B... ordene as letras 



Roberto dos Santos Silva 



Oprograma Ordena Letras Simula um antigo passatem- 
po conhecido nosso, em que o objetivo e colocar em 
ordem alfabe'tica um pequeno tabuleiro de letras. 
programa 6 todo em BASIC, desenvolvido para 
equipamentos Sinclair, com 16 Kb de RAM. 

Apos o comando de execu9So, o programa demora cerca de 
10 segundos, pois a sub-rotina de inicializasSo, na linha 40, de- 
senha o tabuleiro, embaralha as letras e mostra algumas infor- 
ma56es sobre o jogo. 

A seguir, vejamos algumas dicas importantes: 

o controle para movimenta^o sobre o tabuleiro e para tro- 
ca de posicao das letras 6 feito at raves das teclas 5, 6, 7, 8 e 0, 
sendo portanto possivel usar o joystick para jogar; 

apos a sub-rotina de inicializacao, e apos cada troca de posi- 
cao de uma determinada letra, o cursor estari na posicSo em 
branco do tabuleiro (embora nao apare^a); 

6 possivel movimentar-se a vontade em todas as directs, 
mas s6 se pode fazer 1 50 trocas de posi95es; 

s6 i possivel mover uma posicao de cada vez; 

ao ordenar todas as letras, o espaco em branco devera" estar 
situado na ultima posicao do tabuleiro; 

se for dado algum comando impossivel de ser executado o 
cursor piscara; 

para trocar uma letra de posi9a*o, deve-se posicionar o cur- 
sor na letra desejada e apertar o botSo de tiro do joystick (ou a 
tecla 0), sendo que esta letra devera" estar ao lado da posi^So 
em branco, ou imediatamente acima ou abaixo; 
. para mudar o numero de trocas possiveis de letras, altere as 
Iinhas22,32e74. 



Roberto dos Santos Silva cursa o 39 perfodo do curso de tecndlogo em 
processamento de dados nas Faculdades Reunidas Nuno Lisboa. Atual- 
mente desenvolve programas para ED- 281 e TK-85, tendo aprendido a 
linguagem BASIC em livros e revistas especial izadas. 











Ordena Letras 






1 REM ORDENA LETRAS -R5S-0S038 




2 uET NP=0 


: 30SUB 4.0 


4 LET S$=INKEY$ 


5 IF S$a"" THEN GOTO 4 


6 IF 5$ = ;, 0" AND ( (LI=L AND RB 


5 i. K-CO.i =2= OR (COsK AND fiBS tL- 


LI.i =2) ) THEN GOTO 15 


7 PRINT AT LI .CO; L$ ( (LI -4: 2 


; C 0-10 ) /' 2 ) 


8 IF 5$ ="5" AND C0>=14 THEN L 


ET 00=00-2 


9 IF 5$ ="6" AND LI<«10 THEN L 


ET LI=LI+2 


10 IF 5$ ="7" AND LI>=8 THEN LE 


T LI=LI-2 


11 IF 5$ = "8 : ' AND C0<:=16 THEN L 


ET 00=00+2 


12 IF 5$="D" THEN GOTO 24 


13 PRINT AT LI,C0;CHR$ (CODE L 


$( (LJ-4) /2.: 1.00-10) /2) +12S) 


14 GOTO 4 


15 LET L$ ( (L-4) /2 . iK-10) /2 =_ = 


( (LI-4) /2 . (CO -10) /2) 


16 LET L$ ( (LI-4) /2, (CO-10.1 2 = 


17 PRINT AT LI .CO; " " 


IS PRINT AT L , K ; L$ ( (L-4) /2 , - - 


10) /2) 


19 LET L=LI 


20 LET K=C0 


21 LET P=P+1 



52 



MICRO SISTEMAS. 



55 



22 


IF P=150 THEN GOTO 24 


53 NEXT J 


2: 


GOTO 4 


54 LET N(L,K) =NE 


= 4 


CL5 


IE LET l$ CL . K) =R$ (NE TO NE) 


1 = 


FOR L=l TO 4 


56 NEXT K 


25 


FOR K=l TO 3 


57 NEXT l 


c! r 


IF L$ (L , K + l) =" " THEN GOTO 


■ ^^HBB 


29 




HUMlllMl ■ 


S3 


IF L$ CL :K: >L$ CL . K + l) THEN g 


59 FOR L=5 TO 13 


oto : 


4 


60 PRINT H! L 9 ; K&WiigflttJlrfll 


£9 


NEXT K 


" 


30 


IF L $ l L . K i > L $ I L + ( L < 4 ) , 4 - _ 


61 NEXT L 


■4)+l*(L<4.*) THEN GOTO 34 


■■■B 


31 


NEXT L 


■ - ■■■■■■ 


32 


LET NP=NP+ 1. 150 -P) *100 


63 FOR L=l TO 4 


33 


GOTO 3 


54 FOR K=l TO 4 


54 


PRINT RT 5.4;"* * * FIM DE 


55 PR INT RT 4 +L *2 . 10 +K *2 .; L $ ( L , 


JO GO 


* * - 


K) 


35 


PRINT RT 12.4; "PRRR CON^Inu 


66 IF L$(L,K)=" " THEN LET LI* 


RR Tf 


-.-i F PT 1P.4 IsM-hVtfUShl 


4 + L*2 


H:JJ;idi 


67 IF L$.L,K;=" " THEN LET 00= 


' -1 B 


LCI -• 5 — I N ". CY $ 


10+K*2 


•J ? 


IF 5*a"" THEN GOTO 25 


66 NEXT K 


38 


IF 5$="C" THEN RUN 


69 NEXT L 


39 


STOP 


70 LET L=LI 


40 


FR ST 


71 LET K=CO 


41 


0L5 


72 SLOU 


42 


RAND 


73 PRINT RT 1,11; "PONTOS: : ' i NP 


4 3 


DIM L$C4,4) 


74 PRINT RT 15.1;"* TENTE ORD 


44 


DIM N(4,4 


ENRP. R5 LETRR5 OOM";RT 17,3; "150 


45 


LET R$="R5GDEFGHIJKLMNG " 


TROCRS NO MRXIMO . " ; RT IS , 1 ; " * T 


46 


FOP. L = l Tf; 4 


EOLE CD) PRRR DESISTIR OU " .; R 




FOR K=l TO 4 


T 19 . 3 ; "OURNDO TERMINRR . " .; RT 20 , 


43 


LET NE = INT (RND*16' - - 


1;"* zE TERMINRR RNTES DE 150 


49 


FOR Jsl TO 4 


" ; RT 21 ,3: "TROOPS MRRCRRR PONTO 


50 


FOR P=l TO 4 


S . " 


51 


IF NE=N'..J,P) THEN GOTO 46 


75 LET P=0 ■ 

76 RETURN •**• 


c. z 


NEXT P 




SEU FUTURO COMECA AQUI. 







PROGBAMAQAO OPERACAO DIGQACAO 

(COBOL&BASIC) 

PRO GRAMAC AO ESTRUTUR ADA | Para quern ja fez Cobol ) 

DatameL|erj= 



I MElER 

^MEDINA 



MEDINA 127s/309 311 



NITEROI 

AURELINO LEAL 25 



MADUREIRA 



EDGAR ROMERO 244 s/ 3 

. . —— ■ ~~ 



n 



Um desafio para os usua'rios de Sinclair que gostam de emocao e suspense: tentar escapar 
de uma cata'strofe que esta' destruindo o planeta 



O sobrevivente 



Sergio Roberto Gouveia 



Oobjetivo de quern joga sobrevivente 6 procurar es- 
capar de urn terrivel terremoto que esta" abrindo cra- 
teras em toda a extensao da Terra. Se o jogador cair 
em um desses buracos provoca o fim do jogo. Ele 6 
bastante interessante, podendo ser jogado individualmente ou 
com amigos, para ver quern sobrevive mais tempo, antes de ser 
tragado pelo chSo, ou escapa ileso. 

Voce vai manobrar uma grade de 21 x 31 pontos, utilizando 
as teclas com setas (5, 6, 7 e 8) ou um joystick. Durante a fu- 
ga, cada vez que voce engolir um dos pontinhos da grade, acu- 
mulara dois pontos no escore. Passando por um local onde ha 
um X em vfdeo-reverso, perde um ponto. transito pelos es- 
pa^os vazios nao altera o escore. 

Durante o jogo 6 preciso ter muita atenc^o, pois enquanto 
se esti caminhando o terremoto vai provocando novas crateras 
pela grade afora. Permanecendo parado ou se movimentando 
durante jnuito tempo em uma s6 dire9lo, inevitavelmente voce 
seii tragado por um buraco. O jogo termina nesse momento ou 
quando o jogador alcazar a ultima coluna a direita da tela. 
Neste segundo caso, o sobrevivente tera" uma bonificacao extra 
de 100 pontos adicionada ao seu escore. Esse escore aparecera" 
no topo da grade ao final de cada partida. Pressionando-se 
qualquer tecla a grade 6 recomposta, dando infcio a uma nova 
partida. 

grau de dificuldade do jogo pode ser ajustado, modifi- 
cando-se os valores inteiros (INT) da linha 1075. Quanto maior 
for o numero inteiro, mais faal sera" o jogo, e vice-versa. Embo- 
ra preparado para rodar em equipamento com maior capacida- 
de de mem6ria, O sobrevivente pode ser digitado em aparelhos 
de 2 Kb, desde que se eliminem a tela de abertura, as telas de 
instru96es (linhas 1000 a 1054, inclusive) e mais as linhas 1087 
a 1094. 



Sirgio Roberto Gouveia 4 gedgrafo, com Mettrado em Urbanismo, tra 
bslha em Pisnejemento Urbano e Regional no Governo de Santa Catari- 
na e tern um micro de logics Sinclair, qua utilize como hobby. 



O Sobrevivente 



0BREM SERGIO GOUUEIfl 
10O0 PRINT " 



34 



1001 PRINT "S. .S 

1002 'print' 'b, .-S 

1O03 'PRINT' 'g, ,g 
1004 'pRINf' ' 
1005 " PRINT ' a * 

1005 'PRINT' ' 
1007 'PRINT' ' 



B. 



100S PRINT B. ,B 



B.B. 



1009 PRINT 'B. • . . 

•BB. -B. .B.B. 

1010 print .gg, .b. .b.^ss. .flB-fl 

B. .B.B. .B.B. 

1011 print . , ,B.B. B.B. -B.B. . . 
BfflB.B. .B.B. 

1012 print B. .B.B. .B.B- -B.B. . . 

B S5. .B. 

1 013 print .^. . .HE, BS5. .B. . ■ 
.WB.H..B. 

1014 PRINT " 

1015 ' PRINT ''..,. , 

— .§..;... • 

1015 PRINT ". , 
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101 7 PR INT 

10 IS PRINT 
.Q. .Q. . .S. .ffi 

1019 PRIN- 

. J3 ■ 2 - • >B 

1020 PRINT 

.S. .3. . s. 

1021 PRINT 



a. .e. as >■ 

■ . . ■ . ■ . . ■ . ■ . 

Q. .83.2^335. 

. .a — s. 



.s. 



•Q 21 



S ; AT ft , 3 1 



P;CHR$ 8; AT 21, Pi 



O JO GO DO 50 



1022 FOR T«l TO 50 

102 3 NEXT T 

1024 FOP. 5=0 TO 21 

1025 SCROLL 

1026 NEXT 5 

1027 FOR P = i 

1023 PRINT PT R,0.;CHR$ 
;CHP.$ 3 

1029 NEXT P 

1030 FOR P=0 TO 

1031 PRINT AT 
; CHR$ 8 

1032 NEXT P. 

1033 PRINT PT 1,5; 

1034 PRINT PT 3*2; "USE Hi TECLfiS 

COM SETfiS PPRP" 

1035 PRINT PT5:2;"SE MO'JIMENTPR 
Nfl DIRECPC DESK" 

1836 PRINT PT 7,2;"JflDP. NPO FIQ 

UE PhRhDO OU SE" 

1037 PRINT PT 9 ,2; "MOUIMENTPNDO 

NUMH MESMP DIRE" 

103S PRINT PT 11,2, "CPO,POIS UQC 

E PODERP CPIR NUM" 

1039 PRINT PT 13 .2; "BURPCO. JO 
GO TERMING PI OU" 

1040 PRINT PT 15,2 
PTINGIR P COLUNP" 

1041 PRINT PT 17,2 
GUNDO CPSO , UOCE" 

1042 PRINT PT 19.2;"PINDP GPNHP 
UMP BONIFICHCftO" 

1043 FQR T=l TO 300 

1044 NEXT T 

1045 PRINT PT 3.2 
. I OEJETIUO DO" 

1046 PRINT PT 5,2 
PR MAXIMO DE 

1047 PRINT PT 7,2 
RE.CPDP PONTINHO" 
104S PRINT PT 9,2 
fl + 2 PONTCS E " 

1049 PRINT PT 11 , 
IDO RETIP.fl 1 PON-" 

1050 PRINT PT 13.2; "TO. SEU SC 
OPE PPPRECERP PO" 

1051 PRINT PT 15,2.i"FINPL DE CAD 
P PPRTIDP • " 

1052 P RINT PT 17.2 " -Wzm 

1053 PRINT PT 19,2i"DIGITE PGORP 
OUPLOUER TECLP " 

1054 PAUSE 4E4- 

1055 LET X=10 

1056 LET Y=l 

1057 LET T=0 

1058 DIM M (21,30) 

1059 LET 5=T 

1050 FOR L=l TO 21 

1061 PRINT PT L , O i " 



"OUPNDO UOCE 
"31. NESTE SE 



"DE 100 PONTOS 
"JOGO E PCUMUL 
"PONTOS NO SCO 
"ENGOLIDO CONT 
;; "CPDP S ENGCL 



1062 NEXT L 

1063 LET L=i:iNKEY$ = "6" PND X<21) 
- ( INKE Y $ = " 7 " PND X > 1 J 

1064 LET C = I INKEY $ = " 8 " PND Y < 3 1 ) 
- (INKEY$="5" PND Y>I) 



1065 PRINT PT X,Y; " " 

1066 LET X=X+L 

1067 LET Y=Y+C 

106 8 P R I NT PT X , Y ; " U " 

1059 IF Y>30 THEN GOTO 10S6 

1070 LET S=S+M (X ,Y) +2 

1071 LET M (X,Y) =-2 

1072 LET T=T-1 

1073 IF NOT T THEN GOTO 1083 

1074 IF T>0 THEN GOTO 1063 

1075 LET T=INT (RND*3+3) 

1076 LET H=X+T*L 

1077 IF H>21 THEN LET H=21 

1078 IF H<1 THEN LET H=l 

1079 LET I=Y+T*C 

1080 IF I<1 THEN LET 1=31 

1081 IF I>31 THEN LET 1=31 

1082 GOTO 1063 

1033 PRINT PT H,I;CHR$ 6 ; PT H,I, 
CHR$ 134; PT H,I;CHR$ 6 ; PT H,I;CH 
R$ 134 ; PT H , I ; CHR$ 139 

1034 LET M iX,Yi =-3 

1035 IF H<>X OR XOY THEN GOTO 1 
6 3 

10S6 PRINT PT 0,12;CHR$ 1S4;CHR$ 
168;CHR$ 1S0;CHR$ 183;CHR$ 170; 

CHR $ 142 ; 5 + ( 100 PND Y > 30 )' 

1087 PRINT PT 21,2; "OUPLOUER TEC- 
LP PPRP NOUO JOGO" 

108S PAUSE 4E4 

1039 FOR P=12 TO 21 

1090 PRINT PT 0,P;CHR$ S; 

1091 NEXT P 

1092 GOTO 1055 

1093 SPUE "30B ,: 

1094 RUN " 



NUNCA £ TARDE PARA LER 

/Micro 




Se voce 

nao adquiriu 

MICRO 

SISTEMAS 

na data certa, 

nos the damos 

uma segunda 

chance! 



• Seu pedido pode ser feito 

por carta, indicando 

quais os numeros 

atrasados que voce* quer. 



• Acrescente a este urn cheque 


cruzado, nominal a ATI 


Editora Ltda., no valor 


correspondente ao seu 


pedido. 



• E nao se esqueca de incluir 

o seu endereco para 

que nos possamos 

fazer a remessa. 



4ISU 



End#f#^o* 

Roo OI,v»ira Dio». 153 — Jordim Poulisto — Soo Poulo SP 

-CEP01433-T»I».: (011)853-3800,853- 7758«881 5668 

Av. Pr»»io*nt« Wil»on. 165 — gn*po 1210 - C«ntro — Rio 
6m Jon«lro/RJ — CEP 30030 — T«h.: (021) 262 525» 262- 
6437 • 262-6306 
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Renato Degiovani 



Jogos, jogos e mais jogos. Talvez esse seja um dos mais serios assuntos da 
microinformatica na atualidade. Para comprovar essa teoria, basta consultar 
qualquer tabela de software e se tera uma ideia exata do volume de programas 
de lazer disponiveis no mercado. Numa area onde nao existem preconceitos 
de linha ou porte de equipamento, era de se esperar que o jogo assumisse um 
papel de importancia quase fundamental, afinal, quern resiste a tenta^ao de 
rodar o Aztec ou o Assault quando o patrao da uma saidinha r ou enquanto a 
esposa esta vendo a novela das oito? 

Quern ja presenciou um teste ou demonstra^ao de um equipamento sabe 
que, no final e apos rodar diversos utilitarios e aplicativos para as mais varia- 
das fun^oes, o tecnico, num ritual de comprova^ao da eficienciada maquina, 
tnanda ver o seu jogo predileto. 

Se esse estado de coisas e bom ou ruim para o desenvolvimento da micro- 
informatica nacional nao importa; o que conta e oentretenimento, pois lazer 
e uma atividade essencial ao ser humano. E e dessa forma que todos os progra- 
mas de jogos devem ser encarados: lazer. Puro e simples lazer. Extrapolar dai 
e apostar numa discussao sem perspectivas de conclusao. 
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Pe por um lado existe todo urn ques- 
tionamento da importancia dos jogos, 
por outro e dificil estabelecer uma or- 
dem qualitativa nos produtos que ja" 
existem. Podemos, no entanto, assumir 
que para um jogo ser considerado bom 6 
necessario que a sua estrutura ba'sica seja 
calcada numa ide'ia original. 

Poden'amos citar diversos exemplos, 
por6m o mais significativo e' o xadrez 
que, apesar de ter alguns se'culos de exis- 
tencia, continua a causar grande suces- 
so entre seus adeptos. A estrutura do 
jogo permanece, desde a sua criacao ate" 
hoje, praticamente inalterada e talvez 
nunca sofra modificacOes, dado que ela 
€ a sfntese de treselementosfundamen- 
tais: atualidade, abrangencia e simpli- 
cidade. 

A atualidade refere-se ao grau de con- 
temporaneidade que o jogo assume num 
determinado espaco de tempo. Alguns 
jogos famosos atualmente, com certe- 
za perderffo sua forga atrativa na medida 
em que se distanciarem do fato gerador 
ou inspirador. 

Um caso tipico 6 o jogo WAR que, 
para ser plenamente satisfatbrio, exige 
dos jogadores, pelo menos, uma vaga 
ide'ia do que foi e da importancia da II 
GUERRA MUNDIAL. Nesse caso, o as- 
sunto confronto militar 6 sempre atual, 
por^m a sua localizacfo temporal perde 
importancia na medida em que o tem- 
po distancia-nos do fato em si. O que se 
pode fazer, num caso desses € trazer a 
mecanica do jogo para um conflito mais 
pr6ximo da atualidade. 

A abrangencia 6 um aspecto de suma 
importancia dentro da universalidade de 
um jogo. Sistemas que tern como pre- 
requisites para serem manipulados, um 
elevado grau de QI ou um repert6rio de 
reflexos condicionados altamente desen- 
volvidos, estSo condenados a serem res- 
tritivos por natureza e definica'o. £ es- 
sencial que um jogo permita o entrete- 
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Os diversos tipos de space invaders: (l)o conhecido efamoso 

GALAXY IN VASION (TRS 80), da genial dupla Bill Hogue e 

JeffKonyu, para a two menos famosa Big Five; (2) o irmSo do 

Galaxy, mas igualmente popular COSMIC FIGHTER (TRS 80), da 

mesma equipe anterior; (3) o SPACE INTRUDERS (TRS 80), de 

Doug Kennedy para a Adventure Int. ; (4) o STAR BLAZERS 

(TRS 80), da Q. Products; (5) o SPACE INVADERS (Sinclair), 

da Ritas do Brasil, um raw exemplar deproduto nacional. 



nimento do mais inocente iniciante ao 
mais completo profi-expert-jogador. Por 
sinal, essa e' uma caracteristica muito 
pouco observada nos jogos eletronicos 
de movimento, onde o infeliz jogador 
deve manejar pelo menos uns 10 coman- 
dos ao mesmo tempo. 

A simplicidade € o terceiro e mais im- 
portante fator ao qual um bom jogo de- 



ve obedecer. Isso se deve, aUialmente, 
ao fato de haver uma grande quantida- 
de e diversidade de jogos disponiveis, 
obrigando os amantes dessa atividade a 
um dificil processo de selecffo. De fato, 
pode-se escolher entre as mais diversas 
situacCes e, certamente, as que sao mais 
assimilaveis detem uma preferencia 
maior. Jogos que obrigam o usurfrio a^ 
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OSJOGOSCOMERCIAIS 



decorar listas de comandos, regras e pos- 
sibilidades acabam causando o cansaco 
e desinteresse antes mesmo do jogador 
comecar a tirar algum divertimento 
deles. 

Mas seriam apenas esses os elemen- 
tos que caracterizariam um bom jogo? 
A resposta e um sonoro NAO. 

Existem jogos que obedecem rigoro- 
samente a esses requisitos e, no entan- 
to, nao despertam o menor interesse. 
Por outro lado, existem algumas aber- 
racOes que fogem a qualquer regra e, 
a in da assim, conseguem a adesSo de inu- 
meros entusiastas. Por trds disso estaria 
um elemento na"o codificdcel em regras 
ou preceitos, e que poden'amos tradu- 
zir por a alma do jogo. Essa alma po- 
deria ser identificada nas infinitas possi- 
bilidades do xadrez; no charme do 
monstrinho Pac Man;na sensa^So de po- 
der do WAR; na simplicidade do jogo da 
Velha, etc. 



A EVOLUC AO DAS MAQUINAS 

A microcomputaca"o de lazer e um 
dos ramos da Informa"tica que tern so- 






Os penetrators da linha 
TRS 80: (6)0 original 
PENETRATOR, de 
PHILIP MITCHELL, para 
a Beam; (7)o SEA 
DRAGON, um penetrator 
em baixo d'dgua, da dupla 
Wayne Westmoreland e 
Terry Gilman, para a 
Adventure Int.; (8) o 
ELIMINATOR, da mesma 
equipe anterior. 



Para jogar: os acessorios 



T7m termos de acessorios para jogos em microcompu- 
Lli tadores, os mais u tilt ados sdo sem duvida os joysticks 
e os paddles. Ambos tern a mesma funcao: possibilitar o 
movimento, controlando o jogo e dispensando o uso do 
teclado da mdquina. O teclado, quando usado para esse 
fim acaba sofrendo um desgaste natural quepode vira da- 
nificar as teclas. Os joysticks sdo compostos por uma ala- 
vanca que determina a direcdo do objeto que estd sendo 
controlado e um botSo para disparo, para os jogos que dis- 
poem deste tipo de artificio. Jd nos paddles, ao inves da 
alavanca existe um botdo girador com o mesmo fim. 

Para os micros da linha Sinclair, podem ser encontra- 
dos nas lojas um joystick da Microdigital, fabricante dos 
micros TK 83 e 85, que custa Cr$ 19 mil e 393 (na Com- 
putique S.P); o joystick da Greika, que custa Cr$ 25 mil 
e 909 (Computique S.P); e um terceiro modelo de fabri- 
cacao da Plancontrol que custa CrS 40 mil (Imares S.P). 



A Plancontrol fabrica tambem paddle e joystick para mi- 
cros da linha Apple, cujos precos variam entre Cr$ 60 mil 
e CrS 76 mil, nas lojas de Sdo Paulo. E para o micro 
CP-500 sdo encontrados um joystick da prdpria Prologica, 
fabricante do equipamento, e que custa CrS 69 mil, 
(Imares S.P); e pelo mesmo preco existe um outro mode- 
lo de joystick de fabricacdo da Corsdrio. 

Um outro acessorio que quando utilizado para jogos 
implementa as figuras que aparecem na tela e a utiliza- 
cdo de alta resolucdo grdfica. Nos equipamentos voltados 
para uso profissional, como os da linha Apple, por exem- 
plo, esse recurso jd vem embutido na mdquina. Mas o 
mesmo ndo acontece nos micros pessoais da linha Sin- 
clair, o que levou alguns particulares a desenvolverem 
placas de alta resolucdo para micros dessa linha. Uma des- 
sas placas foi desenvolvida por Paulo Roberto V. Pereira e 
Neuveri Moog, e foi testada e dnalisada pelo CPD de 
MICRO SISTEMAS (vide MS 37pdg. 16). 
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Saiba porqueoCirandao 

se ligou tanto 
no Modem UP-1275 VTX 

da Parks. 




O Modem UP-1275 VTX da Parks e o 
modem homologado pela Telebras. Depois de 
todos os testes de qualidade realizados pela 
empresa, ele mostrou que e o mais duravel e de 
maior resistencia. 

O Modem UP-1275 VTX da Parks e a 
maneira mais simples, rapida e duravel de voce 
ligar o seu microcomputador ao Servico 
Cirandao e Videotexto. Basta uma linha 
telefonica comum para completar a ligacao e 
ter ao seu alcance as mais diversas informacoes 
de interesse domestico, empresarial e 
profissional. 



E um aparelho de pequenas dimensoes 
(15 x 25cm), peso reduzido e de facil instalacao. 
Recebe sinais em 1200 bps e transmite a 1200 ou 
75 bps. Alem de tudo, tern alta durabilidade e 
faz voce ficar na linha por muito mais tempo e 
tern muito mais facilidade de reposicao de 
pecas. 

Receba o Servico 
Cirandao ou Videotexto em 
sua casa, empresa, 
consultorio ou escritorio. 

O Modem UP-1275 VTX 
da Parks da o acesso. 





MODEM UP-1275 VTX 



BANCO DE DADOS 




E AUTOMATICO: Voce compra o Modem 
UP-1275 VTX da Parks e ganha uma inscricao 
para ingresso no Servico Cirandao da Embratel. 



REDE 

II I I IONIC \ 



1200/75 



oo 



Mainz: Porto Alegre - RS - Av. Parana, 2335 i Fbne (0512) 42-5500, Telex (051) 1043 • Filiate Sao Paulo Fone (011) 572-7171, Telex (011) 23-141 • Curitiba 
Forte (041) 232-1814, Telex (041) 5406 • Rio de JaneiroFone (021) 240-7443, Telex (021) 33-621 • Recife Fone (081) 325-2123, Telex (081) 4248 • Representantes: 
Belo Horizonte Fone (031) 226-5722 • Brasilia: Fone (061) 272-1825 • Biumenau Fone (0473) 22-6248 • Campo Grande^Fone (067) 383-5331 • Florianopolis 
Fone (0482) 22-1525 • Cuiaba:Fone (065) 321-5020 • Uberlandia Fone (034) 234-4600 • Salvador Fone (071) 249-9744. 
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CURSOSOI APERFEIPOAMINTO 



MAIS SUCESSO PARA VOCE! 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voce o mais moderno ensino 

tecnico programado e desenvolvido no Pais. 



CURSO DE ELETPONICA DIGITAL 
E MICROPROCESSADORES 



Sao mais de 140 apostilas com informacoes completas e sempre 
atualizadas Tudo sobre os mais revoluciona>io CHIPS E voce 
recebe. alem de uma sohda formac3o teorica. KITS elaborados 
para o seu desenvolvimento pratico. Garanta agora o seu f uturo 





ft a 



CEDM 20 KIT 
de Ferramentas. 
CEDM 78 KIT 
Fonte de Alimentacao 
5v/1A. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes. 
CEDM 80 

MICROCOMPUTADOR 
Z80 ASSEMBLER. 




CURSO DE 
PROGRAMMED EM BASK 



Este CURSO, especialmente programado, oferece os 
fundamentos de Lmguagem de Programaca"o que domma o umverso 
dos microcomputadores. DinSmico e abrangente. ensma desde o BASIC 
basico ate o BASIC mais avancado. inclui'ndo nocoes basic as sobre 
Mampulacao de Arquivos. Tecmcas de Programacao, Sistemas de 
Processamento de Dados. Teleprocessamento. Multiprogramacao e 
Tecnicas em Lmguagem de Maquma, que proporcionam um grande 
conhecimento em toda a area de Processamento de Dados 






KIT CEDM Z80 

BASIC Cientlfico 

KITCEDMZ80 

BASIC Simples 

Gabarito de Fluxograma 

E 4 KIT CEDM SOFTWARE 

F>ias Cassete com Programas 



CURSODE 

eletronica e Audio 



M^todos novos e iniditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova licSo, apostilas ilustradas 
ensmam tudo sobre Amplif icadores, Caixas Acusticas. Equalizadores. 
Toca-discos. Sintonizadores AM/FM, Gravadores e Toca-Fitas. Capsulas 
e Fonocaptadores. Microfones, Sonorizacao. Instrumentagao de Medidas 
em Audio. Tecnicas de Gravacao e tamb^m de ReparacSo em Audio 
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CEDM 1 KIT de Ferramentas. CEDM 2 KIT Fonte de Alimentacao 
♦ 15-15/1A. CEDM 3 KIT Placa Experimental 
CEDM 4 - KIT de Componentes. CEDM 5 • KIT Pre-amplificador 
Estereo. CEDM 6 KIT Amplificador Estereo 40w. 



Voce mesmo pode desenvolver um ritmo proprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM per mite aprendizado facil. E 
para esclarecer qualquer duvida, o CEDM col oca a sua disposicao uma 
equipe de professores sempre muito bem acessorada. Alem disso, voce 1 
recebe KITS preparados para os seus exercfcios praticos. 

Agil, moderno e perfeitamente adequado a nossa realidade, os CUR- 
SOS CEDM por correspondencia garantem condicOes ideais para o seu 
aperfeicoamento profissional. 



GRATIS 



Voce tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucos dias voce recebe nossos catalogos de apresentacao 



I^CrSM Av « n,da S* Pau, °- 718 Fono (0432) 23-9674. 
I_.I_.J_ 1 ! I CAIXA POSTAL 1642 CEP 86100 Londrma PR 

CURSO DE APERFEIQOAMENTO POR CORRESPONDENCIA 
Solicito o mais rap i do poufvel informacoes sem compromisso sobre o 

CURSO de 

Nome 

Rue 

Cidade 

Bairro CEP 

MS 



frido uma crescente especializa^ao por 
parte de seus segmentos de hardware e 
software. universo dos jogos eletro- 
nicos experimentou, nesses dois ultimos 
anos, um avanco tecnol6gico bastante 
significativo, e isto devemos, principal- 
mente, ao volume de equipamentos co- 
mere ializados e a tendencia natural de 
massificacab do lazer eletronico. 

Mas esse crescimento nao decorre 
apenas do prazer imph'cito na ativida- 
de, visto que o interesse na a"rea, da par- 
te dos produtores, extrapola o lazer. De 
fato, deve-se creditar aos jogos uma im- 
portancia capital na viabilizac^o de uma 
industria nascente, pelo mimero de pro- 
dutos comercializados. 

A discussao da ordem cronol6gica de 
surgimento dos micros e dos jogos ele- 
trdnicos assemelha-se & questao do ovo 
e da galinha, pordm o nascimento de 
ambos pode ser situado nos anos 70, 
quando diversas pessoas se reuniam em 
grupos e clubes, por todo territ6rio nor- 
te-americano, para a troca de iddias e a 
construct de micros caseiros. que es- 
sas pessoas pretendiam com esses equi- 
pamentos pode ser questionado, mas 
certamente havia o componente "jogos" 
presente entre eles. 

Desses tempos her6icos ate" os dias de 
hoje, muita coisa aconteceu e o nivel 
tecnol6gico atingido foi extremamente 
importante para a criac^o de produtos 
cada vez mais sofisticados. Na realida- 
de, a evolucao das maquinas seguiu pa- 
ralela a uma evolucao no pr6prio con- 
ceito de jogo eletronico, ao ponto de 
hoje ]i existirem alguns tipos de jogos 
somente viaveis por meio e interferen- 
cia do computador. 

Os primeiros micros, precursores des- 
sa atividade, nSo possui'am recursosgrd- 
ficos e de animacao, o que obrigava os 
criadores de jogos a compensar a falta 
do visual com uma criatividade cada vez 
mais restritiva e seletiva. Sao dessa dpo- 
ca os primeiros jogos de xadrez; forca; 
senha; velha; adivinhe o numero; loto 
etc. Com o advento dos equipamentos 
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Diversos jogos tentam um 
estilo diferente dos jd 
conceituados e famosos: 
(9) uma aventura do tipo 
Indiana Jones no ASTEC 
(Apple); (10) uma cidade 
em perigo nos FUNGOS 
MUTANTES (Sinclair), 
adaptacdo da Ciberne; (11) 
o papa da animacao grdjica, 
Leo Christopherson, em 
WALKYRIE (TRS 80) 
para a A OS; (12) o mesmo 
Leo no simpdtico, 
inteligente e irreverenie 
ANDROID MM (TRS 80); 
(13) o FLIPPER (TRS 80), 
da Southern Cross, um 
fliperama quase real; (14) 
o ARMOURED PA TROL 
(TRS80),de Wayne 
Westmoreland e Terry 
Gilman para a Adventure 
Int. 
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OS JOGOS COMERCIAIS 





Dots exempbs de frogs: (15) CHICKEN (TRS 80) 

um frog onde o sapo e uma galinha, de Weaver Jr 

para a Soft Sector: (16) adaptacao do FROGGER 

(Sinclair) pela Multisoft. 



Apple, TRS-80 e Sinclair, os jogos ga- 
nharam em qualidade e diversidade, 
pois esses micros ja" incorporavam al- 
guns recursos extras como caracteres 
graTicos, alta resolu^fo. cor e som. 

Essa talvez tenha sido a ultima fase 
"amadora" dos jogos eletronicos, visto 
que hoje ]£ existe uma especializa?ao 
no hardware e principalmente nas es- 
pecificacOes dos micros. Os anos 82/83 
marcaram o surgimento de maquinas 
voltadas para o lazer eletronico e que 
atendem especificamente a uma classe 
de usuanos muito mais interessada em 
divertimento do que em computa?5o 
propriamente dita. 

S3o equipamentos simples, pequenos, 
com uma capacidade de armazenamento 
real, sob certos aspectos, razoavel (entre 
8 e 32 Kb), pore"m com uma programa- 
9S0 muito avan^ada para os padroes 
Apple/TRS/Sinclair. aperfei9oamento 
de recursos como som, cor e, principal- 
mente, uma melhor performance da 
imagem obtida nos televisores comuns, 
fazem desses micros as vedetes da popu- 
larizaca'o do computador. 

Nessa faixa encontraremos os mais 
criativos micros da atualidade, operando 
um BASIC completamente diferente do 
BASIC standard da Microsoft. De fato, 
a implementacffo de comandos como 
COLOUR, DISPLAY, SCREEN, TONE, 



SHAPE, MUSIC, NOISE, VOLUME, 
CPOS, FDCED, PAPER, INK, BORDER, 
OVER, TIME, CLD, WATT etc. ja os 
diferenciam dos seus parentes maiores. 

Mas as diferencas nffo se evidenciam 
apenas na linguagem de alto ni'vel. Al- 
guns incorporam novidades como a re- 
definicao de caracteres, alta e baixa re- 
solucao na mesma tela, sprite (defini- 
?ao de pianos com prioridade de impres- 
sao), sistemas de armazenamento de 
programas em micro-drives, etc. Existe 
ate o caso de um micro, o Jupiter ACE, 
que optou pelo FORTH ao BASIC, ja 
que esta e uma linguagem mais adequa- 
da a criacao de jogos. 

A pr6pria opera9ao dos micros so- 
freu uma evolu^ao significativa e o ato 
de programar, ou apenas digitar um pro- 
grama, ganhou em seguranca e rapidez. 
Nota-se uma tendencia cada vez maior 
pelo sistema de tecla/funcSo, onde o 
operador n3o precisa digitar o coman- 
do todo mas apenas uma tecla. Alem 
disso, a critica de sintaxe ao se digitar 
uma linha evita que o micro aceite li- 
nhas com erros primarios de digita9ao. 
A edicao tambem foi motivo de um me- 
lhoramento na sua funcionalidade, visto 
que essa operacao e bastante solicitada 
nessa faixa de equipamentos. 

Todas essas caracteristicas re fore am 
o conteito operacional proposto pelo ja 



lendario Sir Clive Sinclair, no seu famo- 
so micro ZX81. £ tambem o prbprio 
Sinclair quern mais tern proporcionado 
mostras de inventividade nos seus mi- 
cros SPECTRUM e, atualmente, no 
2068. Al£m desses, podemos destacar 
alguns outros micros como o LYNX, 
ORIC 1, COMX 35, VIC20, COMMO- 
DORE 64, COLOUR GENIE, BBC etc. 



A PRODU£AO DE SOFTWARE 

Criar um programa original para um 
jogo nao e uma das tarefas mais sim- 
ples na arte da computa9ao de lazer. 
Na verdade, sao muito poucos aqueles 
que conseguem resultados pelo menos 
satisfat6rios, e a tendencia e cada vez 
mais isso ficar restrito a grupos, ou 
software-houses. O motivo e bastante 
simples, pois um jogo, para ser bem acei- 
to, deve possuir compativeis em quase to- 
das as linhas de equipamentos, e isso so 
e possivel,em teoria, se dispusermos dos 
equipamentos e das informa9Ces te'eni- 
cas necessarias. 

Essa tendencia, ja" bastante difundida 
nos paises mais adiantados, ainda esta 
em estagio embrionario aqui no Brasil, 
e os motivos vao desde a falta de estru- 
tura de investimento das prbprias soft- 
ware-houses, ate' a total falta de apoio 
dos fabricantes de hardware. O maior 
reflexo disso tern sido um descomunal 
atraso tecnol6gico, visto que a produ- 
qSo nacional de software original e 
praticamente zero. que existe £ um es- 
for90 de tradugao e adaptacao de soft- 
ware importado, quando nao a pura e 
simples oopia. 

Mas a disponibilidade te'enica ou fi- 
nanceira nao 6 o linico entrave inerente 
a esse segmento da microcomputa9ao. 
A criatividade tern sido, sob certos as- 
pectos, uma barreira muito mais violen- 
ta que as estruturas convencionais. 
maior reflexo disso e a pequena dife- 
rencia^ao entre estilos de jogos, os quais 
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Char jogos ndo e apenas conhecer bem uma linguagem 

de programacdo. £ preciso ter tambe'm algum senso 

artistico e muita imaginacdo para elaborar as aberturas 

e apresentacdes dos programas. 



podem ser classificados como Pac Mans; 
Space Invaders; Penetrators; Star Treks; 
Froggs; Kongs; Flight Simulators; Ad- 
ventures e os convencionais Xadrez, 
GamSo, Damas etc. 

Nada tern surgido de novo, nos lil- 
timos anos, e que nao pertenca a urn 
desses estilos obrigatoriamente. Talvez 
isso decorra de uma postura ainda pre- 
conceituosa em relacffo ao jogo, ou mais 
especificamente ao lazer via computa- 
dor. Os profissionais mais gabaritados, 



com formacao academica inclusive, ain- 
da se sentem inibidos a produzir um tra- 
balho mais completo nesse universo tab 
complexo e apaixonante. 

QUE ESPERAR 
PARA O FUTURO? 

A julgar pela situacab atual, o futuro 
do lazer em computadores, no Brasil, 
ainda vai demorar muito para estourar, 



como em outros paises. Se nab houver 
uma integrac,ab maior entre as software- 
houses e os fabricantes, dificilmente 
haver<i uma producab nacional de peso 
e qu alidade. 

A politica de produzir equipamen- 
tos sem compatibilidade e sem base de 
software ainda e muito forte entre os 
industrials nativos. Chegamos mesmo ao 
ponto de ter no mercado algumas das 
pecas mais esdruxulas jamais vistas, po- 
rc'm a sua propria inconsistence acaba 
provocando seu desaparecimento. Mes- 
mo assim, a experiencia nab tern servi- 
do a todos, e ainda padecemos do mi- 
cro compati'vel apenas com ele mesmo. 

Mesmo nos Estados Unidos, onde o 
consumo da Informdtica estd muito 
mais avancado, nenhum equipamento 
chega ao mercado sem ser precedido por 
uma avalanche de programas oriundos 
dos produtores de software. Aqui no 
Brasil dd-se exatamente o oposto, e 
mesmo apos meses do lansamento, 
muitos micros sab conhecidos apenas 
pelos seus "criadores". Essa fobia de 
ser conhecido e um dos maiores proble- 
mas causados ao consumidor, e estra- 
nhamente contrario a qualquer regra de 
comercializac^o de produto. 

Se esse estado de coisas nab sofrer 
uma alteracab dristica, em pouco tem- 
po teremos equipamentos que s6 fa- 
rab imprimir o nome do seu proprie- 
t^rio na tela de video infinitas vezes. 
Teremos en tab perdido uma das maiores 
oportunidades de consolida?5o da mi- 
croinformdtica, pois dificilmente havera" 
muita gente a investir pequenas fortu- 
nas num narcisismo sem sentido. ■ 



Renato Degiovani 4 Desenhista Industrial e 
Programador Visual, form ado pela Pontiff- 
cia Universidade Catdlica do Rio de Janeiro. 
Possui tambe'm cursos de Fotojorna/ismo, 
Fotogravura, ProducBo Grifica e Fotografia 
Ticnica. £ o Dire tor Ttcnico de Micro Sis re 
mas e usu&rio de microcomputadores na sua 
Area profissional. E tambe'm um entusiasta do 
uso do computador como lazer alternativo. 



MICRO SISTEMAS. janeiro/85 



63 




• Recebemos em nossa redacSo a carta do 
colaborador Marcel G. de Albuquerque, au- 
tor dos programas Granja e Saldrios. publi- 
cados em MS n? 38, pags. 34 e 58, respec- 
tivamente, em que este faz algumas conc- 
edes e sugestOes para melhorar os progra- 
mas citados. No program a Granja devem ser 
feitas as seguintes alteracCes: 

- em vezde COS UB 1800 nalinha 1050, o 
mais correto e' GOTO 1800, e em funcao 
disto. deve-se alterar a linha 1800 para: 
1800 REM INSTRUCOES, 

coloque ponto e virgula no final da linha 
1230, pois a falta deste carater provoca con- 
fusao na tela; 

- a linha. '3020 deve ser trocada; ao inves 
de GOSUB 2040, o mais correto 6 GOTO 
2040. 

No programa Saldrios. sao estas as modi- 
ficacCes: 

- para uma melhor este'tica na linha 1 , 6 
necessirio a colocacSo de cinco espacos en- 
tre as palavras CONFORME e EVOLUCAO; 

- no terceiro paragrafo ap6s o entreti'tulo 
SUGESTOES, deve-se trocar o final da linha 
550. que, em vez de 400 devera ser 100. 
Alias, com o fim dos centavos nao e' mais ne- 
cessario multiplicar por 100, tomar a parte 
inteira e dividir por 100. Assim sendo, seria 
melhor corrigir as linhas que utilizam este 
me'todo (530 e 550) para: 

530 PRINT, ,TAB 11;"CR$ "; INT (SAL) 
550 PRINT ,, TAB llj-CRf "; TOTAL 

• Em MS n9 38, pig. 73, o programa MU- 
DA NOME/DATA teve parte de seu texto 
omitido, em bora as duas listagens publicadas 
(Nome/Data e Numeros Hexadecimais) este- 
jam corretas. Para sanar este erro, publica- 
mos agora somente a redacJo correta de for- 
ma integral : 

"0 artigo DISKZAP para mudar (publica- 
do em MS n9 25, pag. 36) mostrou a possi- 
buidade de modificar o conteudo de um dis- 
quete (e tambem de criar monstrinhos) para 
quern possui'sse o DOSPLUS 3.4, o que na"o 
era o meu caso. Mesmo assim nao desist i, e 
com a publicacio do artigo Alim do BASIC, 
Assembler, DOS e outros mistirios (MS n? 
32, pag. 80) consegui fazer uma rotina em 
BASIC - utilizando parte do programa da 
listagem 2 (pag. 83): Muda nome/data dis- 
quetes - e finalmente tive a oportunidade 
de modificar o conteudo do disquete (e 
fazer o monstrinho mudar tambe'm), simu- 
lando um DISKZAP no meu DOS500. 

Para quern, como eu, na"o possui o DOS- 
PLUS 3.4, o procedimento e' o seguinte: co- 
loque um disquete com o DOS500 no drive 
e entre com o programa em BASIC. Ao 
iniciar o programa, o computador ficara es- 

Krando ate* que se entre com um dado (70 
PUT A $...). Deve-se entao digitar os nu- 
meros hexadecimais um por um, logo apos 
terminar o programa de RESET. Se tudo for 
digitado corretamente, o monstrinho sorrira. 
Uma observac^o final importante: com este 
programa pode-se criar qualquer desenho, 
mas e necessario respeitar o numero de ca- 
racteres e os hexadecimais 01 , 2C, F0, 5 1 e 
OD". 

• Em MS n? 38, pis. 25, no programa 
Cope, a trava do referido programa foi pu- 
blicado como PULZ. O correto no entanto 
e considerar todos os PULZ do programa 
Cofre como sllj^aj • °u seja.em caracteres 
grificos invertidos. 

• Em MS n° 38, pig. 46, no programa Te- 
clado musical, ocorreu um erro na listagem 
em BASIC, na linha 40, onde, erradamente, 
foi impresso um sinal de adk;a"o em lugar da 
virgula. O correto 4: 40 .... 47,3,169,76 ... 
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Artilhana, fita 



Asteroide. f ita 



Aventura e Misteno, f ita 



Aventuras no Castelo. fita 



Balalha Cosmica. fita 



Batalha Naval, fita 



Bichos e CIA, fita 



Brasil 2001. fna 



Caca ao Tesouro, fita 



Caca Niqueis, f'ta 



Castelo de Dracula, fita 



Combate, fita 



Combate Aereo, fita 



C ombate Submanno, fita 



Contatos Imediatos. fita 



Defensor, f'ta 
Diaqodamas. fita 



Duelo, fita 



Enduro. dta 



Espiao, fita 



Estrategia, fita 



U§_ 



Futebol, fita 



Gato e Rato e Deiphos. fita 



Genius II. fita 



Gran Prix, fita 



Guerra Espaaal. fita 



Invasores do Espaco e Tubarao, fita 



Joqo de Gamao, fita 



Joqos da Velha Tridimensional, fita 



Jornada nas Estrelas I, fita 



LaPinnlo. fita 
Laser, fita 



Mercado dos 7 Mares, fita 



Midway fita 



Monopoiio. fita 



Monstro das Trevas. fita 



Mr Kong, fita 
Ovni. (ita 



Passaqem para o Infinite fita 



Patrulha Galactica, fita 



Rally, fita 



Roleta. fita 



Seaunda Dimensao. fita 



Parque dos Pesadelos. fita 



Simuiador de Voo l f'ta 



Simulador de Voo II. fita 



Terceira Dimensao, fita 



Tiro ao Alvo, fita 



TKadrez I. fita 



TKadrez II. fita 



TK-Man, fita 



Torre da Hanoi, fita 



Valguina. fita 



Velho Oeste fita 



Viaqem Fantastica. fita 



Viagem Ga la ctica, f'ta 



Visita ao Cassi.no, fita 



Xadrez fita 



Aranhay fita 



Ataque. fita ou di sauete . 



Auto Estrada, fita ou disauete 



FABRICANTE 



M'Cros 



Microsoft 



JVA 



Adas Salt 



Micro s 



Micros 



JVA 



Monolith 2001 



MlCrQSOlt 



Mao Soli 



Miccfl s 



JVA 



ifed SQtt 



Micro, a 



Kristian 



Microsoft 



Monolith 2001 



Mjccg s 



Mag So" 



Maa So'L 



MiC/OSOft 



Mica a 



Mag Soft 



Microsoft 



Mag Soft 



Microsoft 



Mag Sfifl 



MiCrQSO't 



Mjprp&oH 



Microsoft 



Mag :>■•■•• 



JMicifl - 



MififQftQfl 



J, A 



Kristian 



Minrnsntt 



MirrnftftH 



Kristian 



Micro s 



Kristian 



JVA 



Microsoft 



Micro s 



Kristian 



Mac San 



May So': 



Mag Son i£jt 



K r iS tia" 



Micro s 



MiC rQSO't 



Microsoft 



Microsoft 



Microsoft 



CONFIG. 



16 K 



16 K 



16 K 



16 K 



16 K 



16 K 



16 K 



1fi K 



JUL. 



? K 



lfi K 



1fi K 



16 K 



1fi K 



16 K 



lfi K 



JJB K. 



16 K 



16 K 



-16 K 



16 K 



_16 K 



16 K 



16 K 



16 K 



1 6 K 



16 K 



16 K 



JO K 



16 K 



7 K 



lfi K 



16 K 



16 K 



lfi K 



IfiJS 



16 K 



16.K 



IfiuK 



i6_k 



16 K 



L6 a. 



A&JL. 



16 K 



16 K 



16 K 



16 K 



16 K 



16 K 



JVA 



Kristian 



Mag Soft 



eUialia i 



K,:>si'ai; 



Mag Soft 



Kristian 



Microsoft 



Bombardeio. fita ou disauete 
Contra-Ataque. fita 



Corrida fi ta on disquete 



Corrida Maluca fita 



Dp^atin Fatal fita 



i Flimmalnr fita 



Fslacan Qrbilal, fita 



[ Fliperama fita ou disquete 

"inhhlar fita 

Innns net Guerra fita 



Oppracao Pertgo. fita 



Panicn fita o u disquete 



Papa Tudo fita ou disquete 



Piano Zero, f ita 



PoKer. fita 



Sa po fita ou disquete 
Resgate Suicida. fita 



Sabotaaem. fita ou disquete 



Taxman, fita 



Xadrez. fita ou disquete 



Microsoft 



Microsoft 



Kristian 



Microsoft 



pa stian 



Kosiiarj 



Kristian 



Micosoll 



Microsoft 



Kristian 



Microsoft 



Kristian 



Microsoft 



Microsoft 



Kristian 



Microsoft 



Microsoft 



Kristian 



Microsoft 



Kristian 



Microsoft 



JUL 



16 K 



16 K 



PRECO 
ORTN 



0,39 QRTN 



Q.& 3 QRTN 



0,53 QRTN 



om o&m 



0.43 ORTN 



43 ORTN 



0.53 QRTN 



07 ORTN 



41 ORTN 



44 ORTN 



5flORTN 



S3 ORTN 



0,44 ORTN 



0.43 ORTN 



0.67 ORTN 



0.53 ORTN 



6 ORTN 



0.43 ORTN 



0,44 ORTN 



0.44 ORTN 



064 ORTN 



39 ORTN 



0.44 QRTN 



Q.S3 QRTN 



0.44 ORTN 



41 ORTN 



0.44 ORTN 



0,64 QRTN. 



0.64 ORTN 
53 ORTN 



Q.44 QRTN 



0.19 QRTN 



41 QRTN 



Q67 ORTN 



55 QRTN 



fltJA ORTM 



CtM ORTN 



Q67 QRTN 



39 ORTN 



Q 89 QRTN 
OM QRTN 



-Ju-: ■■■■■-"■ 



39 ORTN 



5fi ORTN 



0.44 ORTN 



44 QRTN 



44 QRTN 



0,67 ORTN 



0.39 QRTN 



n w QRTN 



n *A ORTN 



64 ORTN 
41 ORTN 



Q67 QRTI 



16 K 



1 6 K 



16 -v 



16 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



64 K 



M K 



64 K 



64 K 



64 K 



0,67 QRTN 



v.— QRTN 



Q.67 QRTN 



0,55 QRTN 



0.44 ORTN 



0.89 ORTN 



0.82 e 1.93 ORTN 



0.82 a 1,93 QRTN 



0.82 a 1.93 ORTN 



0.89 ORTN 



0.82 e 1.93 ORTN 



0.89 ORTN 



0,69 QRTN 



0.89 ORTN 



.0.82 QRTN 



82 e 1.93 ORTN 



0.89 ORTN 



0.82 ORTN 



0.89 ORTN 



82 a 1.93 ORTN 



Q82a L93 QRTN 



0,69 QRTN 



0,82 QRTN 



0,82 e 1,93 QRTN 



89 ORTN 



0.82 e 1.93 ORTN 



Q.89 ORTN 



0,82 e 1.93 ORTN 
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UNHA 



Atinui fflaauBU 



Q. 
Q. 
< 

(0 



Corrida, d'squete 



NOME DO JOGO 



Astecas. disquete 



Aztec, disquete 



Baskelte. disquete 



Bridge - Jqoq de Cartas, disauete 



Cassino, disquete 



Castelo Wolfenstein. disquete 



Damas. disquete 



Decatlo. disquete 



Esoadachim. disquete 



Foqo Cruzado. d'squete 



Gamao. disquete 



jSgU, djafljufijfi 



Gorgon, disquete 



llhas Mistenosas. disquete 



Joqo de Boliche. disquete 

Poc Jssr com Cartas, disq uete _ 



Joyo | .)•; Salao. disquete 



Laser, disauete 



Mansao Assombrada. disauete 



FABRICANTE 



Intersoft 



PlaySofi 



BBS. 



BBS 



BBS 



BBS 



flajfiou 



[njeiaefl 



loteoflfl 



JnieisojL 



iPtersofL 



mtersoU 



lotaaofl 



_BBS. 



inteisofj. 



PlavSoft 



BBS 



BBS 



P.aySof: 



Intersoft 



CONFIG. 



tf K 



tf 1 



«U£. 



«Ji 



JOJL 



48 K 



Ac £ 



4 fi 



4 £ 



46 K 



4 S 



J8JL 



45 K 



48 IS 



48 K 



48 K 
48 r\ 



49K 



48 K 



Mate as Aranhas. Haja Aranhas . . disquete 



Norad. disauete 



00 

DC 

r- 



Panico. disquete 



Eaaa [yda diaoufiifl 



SapQiaaem. disquete 



Viagem E spacial. disauete 



Xadrez, disquete 



Aeroguerr a. disauete 



Andnd Gallery, fita 



AtacK. fita 



Batalha. disauete 



Boxer, fita 



Bridge, disquete 



Caca ao Pprco. fita 



Caca Nique is. di squete 



Camelo. fita 



Castelo do Dracula. fita 



Cavalqada das Valguinas, disquete 



Chicken, fita 



Cosmic, fita 



Cnatividade. fita 



Dado, fita 



Defense Command, fita 
Duelo. 



fita 



Iqiu, fug 



-Eieto. '"a 



Invasores. fita. 



Judeia. disquete 



Lunar tita 



/al. disquete 



Microman. fita 



Naval disquete 



Nervns, fita 



Q Diabo Dancanno. disquete 



Outhouse, disquete 



Patrulha fita 



Ppnptratnr fita 



Pmball. (ita 



Rally, (ita 



Ratueira. disquete 



Rebatedor, fita 



Sargon. fita 



Simulador de Voo. fita 



Stellar Escort, di squete 



Vinte e Urn, fita 



Xadrez, fita 



Intersoft 



.BBS. 



Intersof! 



iQtjBBfifJ 



Intersoft 



Intefaofi 



BBS 



Intersoft 



Intersoft 



Mas So,! - 



M'CfQ S 



IfltfiBQfL 



Mag Soft 



imacafifl 



Mjflffl B 



Intersoft 



Mica a 



Micros 



Intersoft 



Mag So't 
Micro s 



Micros 



Mjdfl s_ 



Mag Soft 



MigrQ s 



M'Cro s 



Micro s 



M'Cro s 



Intersoft 



Micro s 



Intersoft 



Micros 



intersoft 



MmjSoB. 



Intersoft 



May Sflfl 



Mag Soft 



Mag Soft 



Mag Soft 



May Sot: 



'"terSQft 



Mil r(, J 



MjfiroJ 



JVA 



Mag. Soil 



M icro .s 



JVA 



48 K 



PREQO 
ORTN 



3 QRTN 



3.35 ORTN 



2 QRTN 



2 ORTN 



2 ORTN 



2 ORTN 



3.35 ORTN 



1,5 ORTN 



1,5 ORTN 



3 DHTN 



2 ORTN 



1.5 ORTN 



1,5 ORTN 



2 ORTN 



1,5 ORTN 



A35.QRTN 



2 ORTN 



2 ORTN 



3,35 ORTN 



4 9K 



.4flJL 



48 K 



48 K_ 



48 K 



48 K 

48 is 



48 K 



48 K 



n3 K 



fflJS. 



48 K 
16 K 



48 K 



OJL 



48 K 



4SK 



48K 



48 K 



16 K 



48 K 



48 K 



48 K 



48 K 



48 K 



48 K 



48 K 



48K 



40 K 



48 K 



46 K 



48 K 



4*K 



16 K 



48K 



48K 



4a s. 



_48-Ji_ 



46 K 



1 6 K 



4SK 



4 u. 



4 flK 



16 K 



46 li. 



tf K 



16 K 



2 ORTN 



3 ORTN 



2.0HTN 



2.5 ORTN 



1,5 ORT N 



1.5 ORTN 



U5 ORTN 



2 ORTN 



1.5 ORTN 



2 QR TN 



_0^44 ORJN_ 



Q-47 ORTN 



1 ORTN 



Q.44 QRTN 



1.5 ORTN 



Q.47 QRTN 



1 5 ORTN 



0,47 QRTN 



5fl ORTN 



I QRTN 



Q.44 ORTN 



Q.74 ORTN 



Q.47 ORTN 



39 ORTN 



G\44 ORTN 



Q.7Q ORTN 



0.58 ORTN 



0.3 9 QRTN 



0.47 ORTN 



3 QRTN 



0.70 QRTN 



3 QRTN 



0.5Q QRTN 



1 .5 QRTN 



Q.44 ORTN 



5 ORTN 



1.95 ORTN 



0.44 ORTN 



0.44 QRTN 



0.44 ORTN 
0,44 ORTN 



2 QRTN 



0-5B QRTN 



-Q. 78 QRTN 



0-78 QRTN 



195 ORTN 



0.39 QR T N 



0.78 ORTN 



Software-houses consultadas: Inter Soft - Av. Brigadeiro Faria Lima, 1462, cj. 2A, Sao 
Paulo, tel.: (011) 212-8971 e 211-0371; JVA Microcomputadores - Av. Graca Aranha, 
145, sobrlj. 01, Rio de Janeiro, tel.: (021)262-6968; Kristian Eletrdnica Ltda. - Rua Gonza- 
gaBastos, 112, CEP:20541 - RiodeJaneiro, tel.: (021)268-8249; Mag Soft- Rua Jose Bran- 
d3o, 175, Jardim Pirituba, S3o Paulo, tel.: (011)864-8101; Micro's Assessoria em Processa 
mentode Dados - Av. Indico.71, S3o Bernardo do Campo, S3o Paulo, tel.: (011)448-6234; 
Monolith 2001 - Rua Augusta, 1371, si. 7, Sao Paulo, tel.: (011)288-4939; Multisoft Infor- 
matica - Av. Angelica, 2318, S3o Paulo, tel.: (011)255-0366; Playsoft - Rua D. Germaine 
Burchard, 511, S3o Paulo, tel.: (011) 62-3600; Produtos BBS, Revenda Informax - Av. 
Brigadeiro Faria Lima, 1390, Sao Paulo, tel.: (011) 813-6407. 



Abreviatura utilizada: config. — configuracao. 



Os mais 
vendidos 



MICRO SISTEMAS realizou uma pei- 
quisa nas lojas para veriTicar quais 
sao os jogos mais vendidos. Os resultados 
demonstraram que os usuarios de micros 
da linha Sinclair sao os que mais procuram 
jogos e entre os mais vendidos destacam-se 

frogramas da Microsoft, JVA, Micro's e 
oftKristian. Encabe?am a lista da Micro- 
soft, paxa os TKs 83 e 85. os jogos: 
TKMan. uma vcrsao do conhecido come- 
come o bichinho que corre atras das bo 
lachas e quanto mais consegue abocanhar. 
maior o numero de pontos para o jogador; 
Rally, corrida de carros onde o jogador e 
um dos pilotos entre as muitas dificul- 
dades a enfrcntar, ele deve ultrapassar os 
outros competidores sem bater nos demais 
carros para nao perder os pontos ja conse 
guidos. Jogar xadrez contra o computador 
e um desafio que atrai muitos usuarios, e 
os jogos TKadrez I e II. tambem da Micro 
soft, tern grande aceitacao no mercado. A 
software-house JVA, do Rio de Janeiro, 
possui pacotes de jogos. com cinco progra- 
mas cada um deles, que lideram a sua lista 
de venda. Dentre os mais vendidos estao as 
fltas Bichos e Cia e Combate. A fita Velho 
Oeste. da Kristian. que reunc quatro jogos, 
destaca-se tambem como uma das mais 
vendidas para os equipamentos da linha 
Sinclair. Outro sucesso de vendas e' o Cas- 
telo do Dracula, da Micro's. Nestc jogo, o 
competidor deve colocar as estatuas do 
Castelo num caixao. fugindo do Dracula e 
do mordomo. 

A Microsoft de Sao Paulo, tambem 
possui jogos para o TK 2000. Lntre os 
mais procurados estao o tradicional Xa- 
drez e Panico. Neste ultimo, um boneco 
sobe uma escada destruindo seres que apa- 
recem em seu caminho. 

Na linha Apple destacam-se os jogos 
comercializados pela PlaySoft, entre os 
quais o Castelo Wolf stein, cuja histdria se 
passa durante a Segunda Guerra Mundial, 
onde o jogador tern como missao encon 
trar os pianos secretos escondidos no cas- 
telo. tendo que livrar-se dos soldados ale- 
maes que la se encontram. Outros dois dis- 
quetes com jogos da PlaySoft, preferidos 
do publico, sao Jogos de Salao. que reune 
jogos de Paciencia, Poker, Xadrez e Gamao. 
e Ataque, um conjunto de quatro jogos de 
acao e movimento . 

Para os micros compati'veis com TRS- 
80, os jogos apontados pelas lojas como os 
mais vendidos sao: Pinoal. no qua! o micro 
se transforma em uma maquina de flipera- 
ma; e a fita com quatro jogos (Boxer. Tiro 
ao Pombo.Golfe eBolaaoCesto). ambosda 
Mag Soft. Entre os jogos da Intersoft. des- 
tacam-se: o Diabo Dancarino, que muitos 
ja devem ter visto em demonstra^oes de 
micros, um jogo que executa miisicas com 
o acompanhamento de um diabinho dan- 
carino; Batalha. onde o jogador deve des- 
truir uma frota de naves inimigas antes que 
acabem os foguetes; e Ctca Nfqueis, jogo 
que Simula uma verdadeira maquina caca 
niqueis. 

Lojas consultadas: Compushop Com- 
putique e Imares. 
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Esta na hora de cata/ogar detalhadamente seus discos. 
Eis uma proposta para equipamentos TRS 80 I e III 



Catalogo de diretorios 



Carlos Roberto Cerri 



MS E FEITA 

PARA VOCE 

PARTICIPE COM 

SUA OPINIAO 

Escreva-nosdi- 
zendo qual a sua 
areade interesse, 
conte-nos tam- 
Wm as suas expe- 
riencias com seu 
micro, o que 
voce" quer ver 
publicado em MS, o que voce acha 
da sua MS, enfim, diga tudo que 
torne MICRO SISTEMAS ainda 
mais feita para voo§. 
E lembre-se: todo leitor que nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua opiniao para Redacao de 
MICRO SISTEMAS no Rio de 
Janeiro ou em Sao Paulo: Av. 
Presidente Wilson, 165/grupo 
1210-Centro - CEP 20030 - 
Rio de Janeiro - RJ; Rua Oliveira 
Dias, 153 - Jardim Paulista • CEP 
01433 -Sao Paulo - SP. 




n 



Criado para rodar em micros 
compativeis com o TRS-80, 
modelos I e III com 48 Kb, 
impressora e pelo menos um 
drive, Arquivo de diretorios 6 um utilit2- 
rio formado por dois programas - AR- 
QDIR01/BAS e PROORD01/BAS. 

Este utilitario possui uma rotina que 
recupera do video os dados dos direto- 
rios, guardando-os na memdria, permi- 
tindo assim que eles sejam modificados 
e deletados, bem como admitindo a bus- 
ca e localizacao de um programa especi- 
fico. Salva e carrega os dados de um ar- 
quivo de disco e, fundamentalmente, 
imprime tres tipos de relat6rios: 

• Catdlogo de diret6rios 

• RelacSo geral de discos 

• fndice remissivo de catdlogo de dire- 
t6rios 



A unica exigencia do programa 6 que 
os discos sejam identificados por niime- 
ros que variem de 1 ate" o numero de dis- 
cos que o usuario tiver de catalogar. O 
programa foi testado com 35 disquetes e 
cerca de 550 programas (com c6pias, 
obviamente) e apresentou boa perfor- 
mance. No caso de o arquivo do usuario 
ser menor, ele podera" modificar os valo- 
res das varidveis nas linhas 40, 45 e 50 
do programa ARQDIR01/BAS e linhas 
25 e 30 da rotina PROORD01/BAS, 
de acordo com as suas necessidades. 

Com isso sera" obtido melhor desem- 
penho do utilitario, principalmente no 
que se refere a emissao do indice remis- 
sivo, cujo tempo de processamento 6 o 
maisprolongado. 

O programa PROORD01/BAS foi 



DISCO N- ± — NOME ■ DISTESTE 

Data: 01/28/84 - 35040 Byte* « 43 Oranm livr«« < 11 Pro9ra«a» ) - Invi NAO 



ARQDIR01/BAS 

DIR/BAS 

ARQDIGI5/TES 



SARG0NII/CMD 
ARQDIGIT/TES 



CHAINTST/JCL 
PR00RD01/BAS 



LM0FF500/CMD 
SUPERZAP/CMO 



ARQDIGI2/TES 
PR0DIGI2/TES 



DISCO N_ 2 — NOME * CURBASIC 

Data: 09/30/83 - 39680 Byt«« « 31 0ran» livr«» ( 11 Pro9ra«a« > - Inv: NAO 



CURBASD/BAS 
CURBASS/BAS 
ZBUG/BAS 



CURBAS1/BAS 

CURBASA/BAS 



CURBAS2/BAS 
CURBAS7/BAS 



CURBAS3/BAS 
CURBASS/BAS 



CURBAS4/BAS 
CONyERTE/JCL 



Figura J - A disposifdo do catdlogo de diretdrios. 



MICRO SISTEMAS, janeiro/85 



elaborado separadamente, com a finalidade tambdm de reduzir 
o tempo de processamento, sendo carregado automaticamente 
a partir do programa principal. Apos executar sua tarefa — or- 
denar e imprimir o Indice remissivo - ele carrega novamente o 
programa ARQDIR01/BAS. 

O programa 6 auto-explicativo e de ficil manipulacao. Um 
aviso aos que gostam (e quern n5o gosta?) de ir podando linhas 
na digitacao: as linhas REM estao incluidas nos comandos 
GOTO e GOSUB. 

Por fim, na figura 1 temos um exemplo de aplicac^o do 
utilitario. 

Carlos Roberto Cerri 6 mddico e usuirio de um DGT-100 hi carca de 
um ano. Ele pretende aplicar os conhacimentos de BASIC em sua Area 
profissional. 




10 REM 

IS REM • ARttUIVO DE 0IRET0RI0S - Uiruo 1.0 

20 REM • AUTOR « Carlo* Roberto Cerri - TEL i (037)2213918 

25 REM • Rua da Bahta 1371 - Dlvinopolla - MO - CEP 33500 



30 REM 



35 CLEAR20000 

40 PA>3Si 'MAX. OE PROGRAMAS POR DISCO 

45 PZ«33l 'MAX. DE DISCOS POR ARQUIUO 

50 PU-500I 'MAX. DE PROGRAMAS POR AR4UIV0 

55 DIMPR*(PZ,P«),NO»(PZ>,D*(PZ),DT*(PZ>,S*(PZ> 

60 DIMP*(P«),PP*(PW>.B(PZ> ,G<PZ),NP(PZ> 

65 ON ERROR GOTO 490 

70 GOT0800 

75 G0T0500 

100 REM ■■■■■■■■ ii n REGISTRO DE DIRETORIOS -- 

105 CLS:PRINT3128,"QUAL DRIVE SERA UTILIZADO NA LEITURA DOS DIRE 

TORIOS <0-3)i "tlLINEINPIITDR* 

110 D-VAL(0R*)UFD(0ORD>3THEN105 

115 CLSH-llPRINTa512,"C0L0«UE DISCO NO DRIVE ",CHRS ( 34 > ,DR*,C 

HR*(34>." E TECLE SEU NUMERO t ~, iLINEINPUTNU* 

117 N-VAL(NUS) 

118 IFN<10RN)PZTHENPRINT3562."ENTRE 1 E",PZlFORX-lT0800iNEXTX«GO 
T0115 

120 PRINT:PRINT'*DESEJA INCLUIR OS ARQUIVOS INVISIVEIS <S/N) ? l~ 
130 R»-INKEY*i IFR*-"N"THEN140ELSEIFR*-"S"THEN150ELSE130 



140 CMt-"DIR "♦STR*(D)lSN*-"NA0"!G0T0160 

150 CM*-"DIR "♦STRS(D)*" I"lSN*-"SIM" 

160 CMD"CMS"lPRINTSTRING*(61.42> 

170 PRINT"AGUARDE MENSAGEM x " 

180 F0RP-15488T0163201C-PEEK (P > « IFC-42TMENI-I-1 IG0T0210 

190 IFC< >32THENHC-0iP*( I )-P*< I ) +CHR*(C >ELSEIFHC-OTHENHC-H I-I»l 

210 NM*-""«F0RP-15371T015378iC-PEEK(P)«IFC(>32THENNM*-NM»*CHR*(C 

220 DTS- F0RP-15381T015388lDT-PEEK<P>HFDTO32THENDTt-DT**CHRl 

(DT)«NEXT 

230 E-VAL (CHR*(PEEK( 15413 )>*CHR*( PEEK (15414))) »1280 

240 PRINT"PARA IMPRIMIR ETIftUETA TECLE (E> PARA PROSSEGUIR (RETU 

250 R1-INKEY*HFR*-"~THEN250ELSEIFASC(R*)-13THEN310ELSEIFASC(R*> 

-69THEN260ELSE25O „_ mmm% 

260 CLS«PRINT~PREPARE A IMPRESSORA"lPRINT~CARACTERES NORMAIS (N> 

OU COMPRIMIDOS (C> 1 " r . c , CB . 

262 R*-INKEY*lIFR*-""THEN262ELSEIFR*-"N"THENCA-14lCB-20«ELSEIFR* 

-"CTHENCA-15ICB-18ELSE262 

270 LPRINTCHR*(CA)|ILPRINTCHR*(14) S NU*" - "NMS 

290 A— 14IF0RP-1T0IIA-A+14IIFA-)68THENA-0«LPRINT" " 

300 LPRINTTAB(A)P*(P)|«NEXTPILPRINT" "«LPRINTlLPRINTlLPRINTCHRS( 

CB), 

310 GOSUB 400 I GOSUB 420 

320 PRINT-OUTRO DIRET0R10 A SER INCLUIDO ? (6/N) i " 

330 R*-INKEYSUFRS-"S"THEN115ELSEIFR*-"N~THEN350ELSE330 

350 CLS«PRINT"MONTE NO DRIVE DISCO «UE CONTEM OS PROGRAMAS« 

ARQDIR01/BAS E PR00RD01/BAS." 

360 F0RX»1T02500:NEXTX 

370 GOT0500 

400 N"VAL(NU*)lNP(N)-I 

405 N0*(N)-NM*iD«(N)-0T*«B(N)-EiG(N)-E/1280iS*(N)-SN* 

410 F0RZ-1T0HPR*(N.Z)-P»(Z)INEXTZ 

415 RETURN 

420 F0RX-lT0P«lP*(X)-""iNEX7X 

490 CLSiPRINT"ARQUIVO NAO INICI ALIZAOClFORX-lTOBOOiNEXTX 

500 REM ■■■■■ I m "I TELA PRINCIPAL " 

505 CLS«PRINTTAB(0)~AR«UIVO DE DIRETORIOS", TAB ( 49)"TELA PRINCIPA 

L"lPRINTSTRING*(63.45)iPRINTlX-14 

510 PRINTTAB(X>"1 - INCLUIR / MOOIFICAR DIRETORIOS" 

- MOSTRAR DIRETORIO NO VIDEO" 

- PROCURAR PROGRAMA ESPECIFICO" 

- DELETAR DIRETORIO" 
535 PRINTTAB(X)"5 - GRAVAR AR«UIVO" 

540 PRINTTAB(X>"6 - ROTINAS DE IMPRESSAO" 

545 PRINTTAB(X)~7 - ENCERRAR PROGRAMA" 

550 PRINTTAB(X)STRING*(33,45) 

533 PRINTiPRINTTAB(X)"SUA OPCAO I " 

560 R*-INKEY$HFR*-""THEN560 

565 X-VAL(Rl) 

570 ONXGOTO 100,600,850,900,700,1000,580 

575 00T0500 

5C0 CI S'PRTNT'PROGRAMA FNr-FRRADO" IFND 



515 PRINTTAB(X)"2 
520 PRINTTAB(X)"3 
530 PRINTTAB(X)' 
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projeto MICROBUG, desenvolvido pela equipe do 

CPD de MS, foi criado para auxiliar o entendimento e 

a exploracao dos recursos existentes nos micros da 






c 


] a fita MICROBUG, pela qual pagarei Cr$ 15 mil + Cr$ 1.300,00 referente a 
despesas do correio. 

] o$ numeros atrasados de MS, pelos quais pagarei o preco de Cr$ 1 mil* por exem- 
plar. Me interessam as edicdes: D MS n° 31 D MS n9 33 

D MS n9 32 □ MS n? 34 








paginas da revista, tern tido importflncia decisiva no 
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aprendtzado e desenvolvimento dos usuarios na 

programacao em linguagem de maquina. 








Oevido ao enorme sucesso do MICROBUG, reflettdo 
nas inumeras cartas que temos recebido. a ATI 
EDITORA LTDA. optou por oferecer a versao 








TOTAL: Cr$ 






integral do MICROBUG. 
Para tal, foi contratado um e stud to especializado. 
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OME: - 








E 






garantindo um padrlo de gravacfio profissional • 






uma embalagem inviolavel que vorf ira apreciar. 
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I DADE: 




;ep 




Como a documentapao do MICROBUG comecou em 

MS n? 31 , aqueles que adquirirem a fita terao a 

OPORTUNIDADE DE COMPRAR OS 

EXEMPLARES QUE N AO POSSUAM POR UM 

PRECO ESPECIAL. Aproveite esta chance e 
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ara tal.estouenviandoum cheque nominal a: ATI Editora Ltda. (Projeto MICROBUG) 
v.Presidente Wilson n9 165,grupo 1210- Centra -CEP 20030- Rio de Janeiro, RJ." 
Despesas de reembolso exclui'das 
BS. : Os produtos acima podem ser adquiridos diretamente em nossos escritdrios do 
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Preencha o quadro ao ladoe mande ja o seu pod id o. 
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TIRAGEM LIMITADA. 
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catAlogo de DIRET6RIOS 



•• DIRETORIO NO VIDEO " 
NUMERO DO DISCO, CUJO DIRETORIO DESEJA WE 



1* Opcoe* digits 



' >• 



600 REM 

605 CLSiPRINT"DIGITE 

• I - 

610 PRINT"(P»r» voltar ao Menu 

613 PRINT353," ", ILINEINPUTNU* 

620 IFNU*-"«"THEN500 

62S 8-VAL(NUS> 

630 IF8<1 ORB >PZTHENPRINT321 4, "NUMERO INWALIOO" IF0RX-1T0600INEXTX 

I 00 T 0605 

633 IF N0*(«)-""THENPRINT3212, "DISCO NAO CADASTRADO"IFORX-1T0600 

•NEXTXI00T0605 

6*0 CLSlPRINTTAB(0)"DISCO N. ", IPRINTUSING"RR"»«, tPRINTTAB< 45>~N 

OME i 'N0*(«> 

643 PRINTTAB(0)"0ata da Foraatacao I "D*(«) ,TAB( 37 >"N. da Progr 

aaas t "NP(«> 

630 PRINTTAB<0)"Bst«» livr«» • "B<«> |TAB< 37 ("Grans IIVTM 

» ~G(«> 
633 PRINTSTRING*<62,45> 

660 A— 16iF0RZ-lT0NP(«>lA-A*16HFA->60THENA-0lPRINT" " 
665 PRINTTAB(A)PR*(«,Z),lNEXTZiPRINT" "I PR INTTAB (0>STRING*(62,45 
) 

670 PRINT"OESEJA WER OUTRO DIRETORIO (S/N) ?" 
675 R*-INKEY«i IFR*-""THEN675ELSEIFR*-"S"THEN600ELSE500 
680 00T0500 

700 REM — ■-■■■-■—— GRAWAR AROtJIWO — 
705 CLSiPRINT'CONFIRME GRAWACAO <S/N) I" 

710 RS-INKEYH IFRS-""THEN710ELSEIFR«-~S"THEN715ELSE500 
715 PRINT3665."G R A W A N 0" 
720 0PEN"0**.1,"LIST0IR/DA0~ 
725 F0RB-1T0PZ 

730 PRINT Hl,N0t(0)iPRINT Ml ,Df(8> IPRINT H1,SS<«> 
735 PRINT HI,B(«)iPRINT Nl ,0(9) IPRINT H1,NP(0> 
740 F0RZ-1T0NP<«> 
745 PRINT H1,PR1(0,Z> 
750 NEXTZ 

755 NEXT8ICL0SE H00T0500 

800 REM .--...——--- CARREGAR AR8UIW0 « 
805 CLSiPRINT3730,"AGUARDE..." 
810 0PEN~I",1,~LISTDIR/DAD" 
815 F0RB-1T0PZ 

820 INPUT HI, NO* («)UNPUT HI ,DS(«> I INPUT R1,S*(«> 
825 INPUT H1.B(0>HNPUT Hi ,G( > I INPUT Rl,NP(tt> 
830 F0RZ-1T0NP<«> 
835 INPUT H1,PR«(«,Z> 
840 NEXTZ 

845 NEXT8ICL0SEUG0T05O0 

850 REM -- ■-" — — PROCURA PROGRAMA-- 
855 CLSlCT-OiLINEINPUT"NOME 00 PROGRAMA I ",PGl 
860 PRINTiPRINTTAB(0)~PR0GRAMA",TAB(18)"DISC0(S>" 

865 PR INTTAB (0)" ~,TAB(18>~ " I PR INTTAB (0>PGf, TAB ( 1 

6>"i "| 

870 FORY-lTOPZlFORU-lTOPB 

875 IFPG*-PR*(Y,W)THENCT-llPRINTUSING"RH",Y, IPRINT" ~, 

880 NEXTWINEXTY 

885 IFCT-1THENPRINT"- OK"ELSEPRINT"PROGRAMA NAO ENCONTRADO" 

890 PRINTiPRINT"OUTRA PROCURA (S/N) ?" 

895 R*-INKEY*IIFR*-~S~THEN855ELSEIFR*-"N"THEN500ELSE895 

900 REM H i i m i i DELETAR REGISTRO " 

903 CLSiPRINTlPRINT"DIGlTE NUMERO DO OISCO 9UE DESEJA DELETA* 

910 PR INT" (Par a voltar ao M«nu da Opoaa diglta ' • ')" 

915 PRINT3111," ", ILINEINPUTNU* 

920 IFNU*»"«"THEN500 

923 N-WAL(NUl) 

930 IFN<10RN>PZTHENPRINT3532, "NUMERO INWALIDO"iFORX«lT0600lNEXTX 

I00T0900 

933 IF N0*(N)-"~THENPRINT3532, "OISCO NAO CADASTRAOO~lF0RX-lT06O0 

INEXTXIG0T0900 

940 NO*(N)-""lDS(N>»"~lB(N>-OlG(N)-OiS*(N>-""iNP(N>-0 

945 FORZ»lTOP«lPR*(N,Z)-""i NEXTZ 

950 PRINT3398, "DIRETORIO 00 DISCO "N" 0ELETAO0"tPRINT3730,"0ESEJ 

A DELETAR OUTRO DIRETORIO <S/N> ?" 

955 R»-INKEY* I IFR*-""THEN955ELSEIFR»-"S"THEN900ELSE500 

960 GOT 0500 

1000 REM ■■ i TELA 2 -■ 

1005 CLSiPRINTTAB(0)"ARBUIWO DE DIRET0RI0S"|TAB ( 43)"R0TINAS DE I 

MPRESSA0"iPRINTSTRING*(63,45)iPRINTiX«10 

1010 PRINTTAB<X)"1 - IMPRIMIR CATALOGO DE OIRETORIOS" 

1015 PRINTTAB(X)"2 - IMPRIMIR RELACAO GERAL DE DISCOS" 

1020 PRINTTAB(X)"3 - IMPRIMIR INDICE REMISSIWO DF PROGRAMAS" 



1025 PRINTTAB<X)"4 - TELA PRINCIPAL 

1030 PRINTTAB<X)STRINGf (42,45) 

1035 PRINTlPRINTTAB(X)"SUA OPCAO I " 

1040 R»«INKEYSUFR*-"~THEN1040 

1042 X-WAL(R*> 

1045 ONXGOTO 1100.1200,1300,500 

1050 GOTO 1000 

1100 REM mi i iaa IMPRESSAO CATALOGO -- 

1103 G0SUB120S 

1105 PG-HCT-0 

1110 F0R8-1T0PZ 

1115 IF«-1THENLPRINTTAB<73)"PAG."PGILPRINTILPRINTCHR«<14)|- 

CATALOGO DE DIRETORIOS"iLPR INTiLPRINTlCT-CT*5 
1120 IFNO*<«>-""THENNEXT« 
1125 IF8>PZTHEN1000 

1130 IFCT-OTHENLPR INTTAB (73) "PAG. "PGILPR INT iCT«CT»2 
1135 LPRINTiLPRINTlLPRINT 

1140 LPRINTTAB<3)CHR$( 14), "DISCO N. ", ILPRINTUSING"HH",t, ILPRINT 
" - NOME l "N0$(«)ILPRINTCHR«<20>, 
1145 LPRINTTAB(4)~Datai "D*(«>" -"B(«>"Bytaa a"G<«)"Gran« livraa 

("NP(«>~PrograBaa ) - Invi "St(«> ILPRINT 
1150 A--8lF0RZ»lT0NP(8>lA-A*14lIFA->70THENA-6lLPRINT" " 
1155 LPRINTTAB(A)PR*(a,Z),lNEXTZiLPRINT~ "ILPRINTTAB(3)STRIN61(7 
6.45MLPRINT 

1160 IFNP(«)-0THENNP(8>-1 
1165 CL"<NP(«)*4)/5iCT»CT*INT(CL> 
1170 CT-CT*B 

1173 IF CT->52THENG0SUB1183lPG-PG*HCT-0 
1180 NEXTOlGOTOlOOO 

1185 FOR I-1T066-CT ILPRINT I NEXTIIRETURN 
1200 REM — — — — RELACAO DOS DISCOS — 
1203 G0SU81205IG0T01215 

1203 CLSiPRINT"PREPARE A IMPRESSORA NO INICIO 00 FORMULARIO E TE 
CLE <RETURN>" 

1210 R*-INKEY*i IFR*-""THEN1210ELSERETURN 
1213 TB»0iTG-0iTN"O 

1220 LPRINTiLPRINTCHRS<14)|" RELACAO GERAL OOS OISCOS'iLP 

RINTiLPRINTiLPRINTTAB<10)STRING*<59,45) 

1225 LPRINTTAB<10)"NUMER0"iTAB<23>"N M E",TAB (39) "BYTES", TAB (5 
0) "GRANS", TAB (60) "PROGRAMAS" 

1230 LPR INTTAB ( 39 )"LIWRES", TAB ( 50 >"LIWRE8" 
1235 LPRINTTAB(10)STRING*(59,45) 
1240 FORB-1T0PZ 
1245 IFNO*(«)«""THENNEXTB 
1250 IF«)PZTHEN1270 
1255 LPRINTTAB( 12 >USING"HH",«,ILPR INTTAB (23>N0«(H>, ILPR INTTAB (39 

)USING"HHHHHH",B(8),lLPRINTTAB(51)USING"HHH",G(«),iLPRINTTAB(63> 

USING"HH",NP(0) 

1260 TB"TB*B(«)iTG»TG*0(8)iTN-TN*NP(8> 

1265 NEXT* 

1270 LPRINTTAB(10)STRINO*(59,45) 

1273 LPRINTTAB(18)"T T A I S I", ILPRINTTAB(38)USING"HHHHHHH",T 

B , ILPR INTTAB ( 50)USING"HHHH" , TO, ILPR INTTAB ( 62 >USING"HHH" , TN 

1280 LPRINTTAB(10)STRING*(59,45) 

1285 GOTO 1000 

1300 REM ■■■—■■■■■■■■ ORDENACAO E GRAWACAO " 

1301 CLSiPRINT-DESEJA GRAWAR EM DISCO ARBUIWO DA MENORIA (8/N) 

1302 R*-INKEY»lIFR»-""THEN1302ELSEIFR*-"S"THEN700 

1305 CLSiPRINT"AOUARDE...WOU INICIAR PROCESSAMENTO DA ORDENACAO. 

1310 J-l 

1315 F0RY-1T0PZ 

1320 IFNO»(Y)-""THENNEXTY 

1323 F0RU-1T0P8 

1330 IFY>PZTHEN1370 

1335 IFPR»(Y,M)»""THEN1365 

1340 00SUB1390 

1345 PU*-PR$(Y,M)*BR* 

1350 BB*-RIGHT»(STR*<Y),2> 

1355 PP*(J)»BB**"-"*PM1U"J*1 

1360 NEXTU 

1365 NEXTY 

1370 0PEN"0",2,~LIST0IR/0R0" 

1375 PRINT »2,J 

1380 FORZ-lTOJlPRINT H2,PPS( Z) INEXTZICL0SE2 

1385 RUN"PR00RD01/BAS" 

1390 BR«-""lFORZ-LEN(PRf (Y,H> )T012 

1395 BRS-BRS*" " 

1400 NEXTZIRETURN 



PROORD01/BAS 



10 REM ————— — — PR00R001/8AS ——————— 

13 REM -— — ROTINA PARA IMPRESSAO 00 INDICE REMISSIWO aaa n a 

20 CLEAR27000 

25 PP-8001 ' MAX. DE PROGRAMAS < INCLUSIWE BACK-UP) 

30 PR -400 • ' MAX. DE PROGRAMAS ( SEM BACK-UP) 

35 DIMPPt(PP),PI*(PR),PU*(PR) 

40 DIMPKPR) ,PU(PR> 

50 O0SUB265 

53 CLSIPRINT"PR0CESSAND0 A ORDENACAO..." 

60 OPEN' I",2,"LISTDIR/0RD" 

63 INPUT H2.J 

70 F0RZ-1T0J 

73 INPUT H2.PPKZ) 

BO NEXTZICL0SE2 

83 MX- J-l 

90 F0RZ-1T0MX 

95 IFWAL(LEFT*(PP»(Z),2))(10THENPP*(Z>-" "*PP»(Z> 

100 NEXTZ 

105 CHO"0",MX,PP*(1>(3,16) 

110 X-UJ-1IPI(J)-X 

115 F0RZ-1T0MX 

120 IFRinHT«,(PP*(Z,,13>-RIQHT»(PPt(Z»l>.13)THENX-X*liGOT013O 



125 IFRIDHT»(PP*(Z),13)< >RIGHTt( PP»(Z*1 ) , 13) THENJ-J*1 IP I ( J)-Z«i IPU( J-l )-X4 11 

130 NEXTZIPU(1)-PU(1> 1 

135 F0RZ-1T0J-1 

140 P1*(Z)-R1GHT»(PP*(PI(Z)),13) 

143 F0RX-PI(Z)T0PI(Z)«(PU(Z)-1) 

150 R*"LEFT»(PP*(X),2) 

153 PU*(Z)-PU»(Z>»" "'R* 

160 NEXTXtNEXIZ 

165 CLSiPRINT-IMPRIMINDO. . ." 

170 LPR1NTILPRINTTAB(72)"PA0. 1'ILPRINT 

175 LPRINTTAB(16)"IN0ICE REMISSIWO DO CATALOOO DE OIRETORIOS" 

180 LPR1NTTA8(22>"»«« TOTALI ", ILPR INTUSING"HHH", J-l , ILPR INT" PROGRAMAS ••■ 

PRINT 

185 G0SUB245 

190 CT-lHPO-1 

195 F0RZ-1T0J-1 

200 LPR1NTTAB(5)PI*(Z),TAB(20)"I",TAB(23)PU*(Z) 

203 CT-CT*1 

210 IFCT-61THENPG-PG*1IFORX-1T06ILPRINTINEXTXICT-OIOOSUB240 

213 NEXTZ 

220 LPRINTTAB(3)STRINGt(74,4S) 

223 CL8iPRINT"0UTRA COPIA (S/N) ■'" 

230 R*-INKEYiUFRt-""TMEN23OELSEIFRt-"S"THEN0OSUB265iG0T0165 

235 RUN"AR«DIR01/BAS" 

240 LPRINTiLPRINTiLPRINTTAB(72)"PA0. ",P0iCT-CT»8 

245 LPRINTILPRINTTAB(5)"PR0GRAMA(S)",TAB(23)~DISC0(S) 

250 LPRINTTAB(5)STRIN0*(13,45),TAB(23)STRING*(56,45) 

253 LPRINT 

260 RETURN 

263 CLSIPRINT-POSICIONE A IMPRESSORA NO INICIO DO FORMULARIO E TECLE (RETURh 

270 IFINKEY»-""THEN270ELSERETURN 
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FECHE ESTE JOGO E RESOLVA 
SEUS PROBLEM AS. OU NAO. 










Voce pode fechar este jogo de duas maneiras. 
Pode fechar assim; 
fechou e nao ganhou nada. Mas pode fechar certo. 
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BR 116/km 25. Cx. Postal 146 

06800 Embu SP Tel.: 011/494 2433 

Pabx Telex 011/33234 KMPL BR 

Telegramas Pirelcable 
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Cabos Especiais e Sistemas Ltda. 



Ai voce ganha uma empresa 

que fabrica os melhores cabos 

coaxiais para audio, video e 

radiofrequencia aqui no Brasil, 

tendo como principal ponto a 

qualidade de seus produtos. 

Uma empresa que fabrica os 

melhores cabos coaxiais para 

audio, video e radiofrequencia 

do Brasil, com nacionalizacSo 

do produto em ate 100%, 

utilizando material da mais alta 

qualidade e mais de 180 

funcionarios altamente 

especializados. 

Se voce fechou o jogo da velha 

da maneira certa, voce ganhou 

a KMP, uma empresa que 

utiliza a melhor materia prima, 

pessoal brasileiro altamente 

especializado, tern como ponto 

principal a qualidade de seus 

produtos e um indice de 

nacionalizac§o de quase 100%. 

Tudo isso para que voce tenha 

os melhores cabos coaxiais de 

audio, video e radiofrequencia 

do Brasil. 





Qualquer diivida chame nosso Departamento de Engenharia de Marketing. E NUNCA PERCA NESTE JOGO DA VELHA. 
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SOFTWARE -CP/M 



• Administragao Im6veis/ 
Condom fnios 

• Controle Administrativo/ 
Financeiro p/Clubes, Escolas, 
Corretoras Seguros 

• Controle Operacional Hoteis 

• Correpao Monetana balanpo 

• Faturamento Servipos Medicos 
(Convenios) 

• Formulagao/Calculo de Ragoes 

• Gerenciamento Rebanhos Gado 
Leiteiro e Gado de Corte 



Praia de Botafogo n° 210 - C-01 
CEP 22250 - Botafogo - RJ 
Tel. PBX (021) 551-6699 
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IINFORMATICA 



HARDWARE 

Compra e venda de microcomputadores 

ASSINATURAS 

Listagens de programas para a Imha 

Sinclair 

SOFTWARE 

Desenvolvimento. venda e IpcacSo 

SUPRIMENTOS E ACESS0RIOS 

Diskettes, drives, joysticks, formulanos 

continuos. etc 

CONSULTORIA E SERVICOS 

EMPRESARIAIS 

Escntdrioa, loias. escolas e consultPnos 

CONSULTE-NOS 

SEM COMPROMISSO 

TROPICAL INFORMATION LTDA 

AV NOVA INDEPENDENCE. 281 - CJ 1 

FONE (011)533-4971 -CEP 04570 

BROOKLIN - SAO PAULO - SP 



ALBAMAR 

ELETRONtCA LTDA. 



FITAS CASSETES 
TAMANHOS 

C5 C10 C15 C20 
C30 e outros 



•FITAS 

magn£ticas 

1 200 e 2400 pes 

• DISKETTES 

5 1/4 e8" 



Rua Conde de Leopoldina. 
270-A S3o Cnstovao — R.J. 
Tels (021) 580-6729 
580-8276 
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COMPUTADORES 
E PERIFERICOS 

UNITRON 
MICROCRAFT 



VENDAS 
LEASING 

PROGRAMAS 
CURSOS 

ASSISTENCIA 
TECNICA 



Av. Mai. Camara, 271 t/luja 101 
Tel: (021) 2S2-3289 — R.|. 



ROBOTIC 



• Microcomputadores de 
todas as marcas 
novos e usados 

• Suprimento 

• Pecas e partes para 
microcomputadores 

• Jogos eletrdnicos 



RUA BARATA RIBEIRO. 370 

- Loja 105 APART HOTEL — 

COPACABANA - RIO - RJ 

TEL: (021)257-6396 




PARA PROBLEMAS COM MATERIAL DE 

DESENH0 - PINTURA - ENGENHARIA 
PAPELARIA • ESCRITORIO • MAOUINAS P/ 
ESCRITORIO E SUPRIMENTOS EM GERAL 
O BEL-BAZAR 
ELETRONICO 



» ■«■"- 



ondt met AINOA •rvcontr* pr»co 
I d« ANTIQAMENTEI 



AV. ALMIRANTE BARROSO. 81 • U "C" 

TEL: 262-9229 262-9088 - 24O8410 - 221-8282 

RIO DE JANEIRO - CASTEL0 



MACH FORM 

MAQUINAS 
E FORMULARIOS LTDA. 



REBOBINAQAO DE FITAS 

DE IMPRESSORAS 

ELGIN. DISMAC.ELEBRAeoutras 

ENCADERNAQOES 

SERVICOS GRAFICOS 

OFF-SET - TIPOGRAFICO 

NOTA FISCAL - FATURA 

IMPLANTACAO - RENOVACAO 

COMPRA E VENDA DE 

MAQUINAS DE ESCRITORIO 

EM GERAL 

CONTRATO DE MANUTENCAO 

E CONSERTOS 

ARTIGOS DE PAPELARIA 



Rua do Proposilo. 42 Sob 

Saude — R J 

Tel (021)233 1593 



MICROCITT 

compulodoros e sislcmot 



MICROS, 

PERIFERICOS, 

SUPRIMENTOS, 

SOFTWARE, 

MANUTENgAO, 

CURSOS E 

LITERATURA. 

EFICIENCIA E 
CONFIABILIDADE 

A ESSENCIA DO 
NOSSO TRABALHO 



R. Paraiba, 1256 Savassi 
Tel.: (031) 227-4291 
Belo Horizonte — M.C. 




Pare de Sonhar.. 



Os leitores de MICRO SISTEMAS nao tern bola 
de cristal para adivinhar a cor de seus produtos. 



ANUNCIE EM MICRO SISTEMAS, 
E TENHA UM MACRO RETORNO. 
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Av. Pres. Wilson n.° 165 — gr. 1.210/16 — Tel: (021) 262-5259/262-6437 
CEP: 20.030 — Rio de Janeiro — RJ. 

Rua Oliveira Dias n.° 153 — Jd. Paulista — Tel: (011) 583-3800/8537758 
CEP: 01433 — Sao Paulo — SP. 
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SOFTWARE 



• Apple & Compatfveis programas 
e manuais — solicite listas — Domi- 
nio Publico Soft & Man - Cx. Pos- 
tal 201 - S. Bernardo do Campo 
- CEP: 09700 -S.Paulo. 

• Soft para Apple - Cr$ 18000 dis- 
co cheio. 500 tftulos. Peca cata lo- 
go - Alfamicro - Cx. P. 21 193 - 
SP. 

• Linha TRS80 Color 300 progra- 
mas a sua escolha peca catalogo 
Jose Luiz Pereira Cx. P. 1536 - 
Foz do Iguacu - CEP: 85890 - PR. 

• Vendo programas p/CP500. Tra- 
tar c/A. Gaeta Mq. Sao Vicente, 
512/1002 - Rio de Janeiro - RJ. 

• Troco programas em Basic ou 
Assembler por carta ou por fita. 
TKs. CP. Roge>io R. Liberdade, 
147-apto. 11B - Santos - SP. 
CEP: 11100. 

• Vendo /troco software p/CP 500 
e similares. Aplicativos, jogos, as 
sessoria e programas sobencomen- 
da. Cx. P. 5137 - CEP: 74000 
GoiSnia - GO. Fone: 225-0632. 

• TK85 e compatfveis. Programas 
ineditos. Peca relacab pelocorreio. 
Bonisoft. Av. Paula e Souza. 422 

Maracana - RJ - CEP: 20271 . 



• Atencao empresa>ios usuarios da 
linha TRS80, disponho de um soft- 
ware gerador de histograma na im- 
pressora com escala e plotagem va- 
riaveis. Informacoes pela Caixa 
Postal 2913 CEP: 60000 - Forta- 
leza - CE. 

• Vendo fita com 10 programas p/ 
TK2000 ou TK85 por Cr$ 40 mil, 
inclusive interpretador Logo. Ven- 
do compilador forth para TK2000/ 
85. Compro programas p/TK2000 
- S. C. Sampaio - Fone 21 19595 
ramal 186 — Rua Pe. Leopoldo 
Fernandes. 360 - 60000 - Forta- 
leza - CE. 

• Vendo 40 jogos 16K p/25 mil 
como: Zaxxon e Phoenix p/TK e 
Sinclair e 100 jogos p/Atari 2600: 
32 ouro e 68 prata p/400 mil. Ser- 
gio - Cx. P. 529 - CEP: 09500 - 
S. C. Sul - SP. 

• Vendo e troco bons programas 
para TRS-Color/CP400. Adriano 
Botelho R. Antonio J. Almeida, 
180 - CEP: 13900 - Amparo - 
SP. 

• Troco programas CP-500 disco. 
Paulo R. Emiliano Perneta, 837 
apto 802, Curitiba - Parana - CEP: 
80000. 

• Programas p/Apple: aplicativos, 
utilitarios, compiladores. lingua- 
gens e jogos. Tel.: (021) 239- 
0449, Stela. 



• Topografia: Soft p/calculo 
analftico de area p/Sinclair 16K 
(300 estacoes). C/Ricardo Tel.: 
(055) 221-1581, Silva Jardim 
1953 apto. 702 Sta. Maria - RS. 

• Aha resolucao no seu Sinclair ape- 
nas por Software. P/receber maio- 
res informaoSes escreva p/R. Ti- 
mor, 41 S.B.C. SP CCP: 09700 ou 
Trav. Quintino Bocaiuva, 32 — St. 
Andre - SP - CEP: 09000. 

• Datamicro Software Clube, me- 
diante pequena mensalidade, reti- 
re semanalmente um programade 
jogos ou aplicativos para Sinclair, 
TRS-80 Color, TK2000. Rua Vise, 
de Piraja, 547 s/21 1 tel.: 51 1 -0395. 



D I VERSOS 



• Commodore-64. assessoria, soft- 
ware, manutencao e acessorios. 
Av. Brig. Faria Lima, 1644 s/l 26 
- Sao Paulo - SP. Fone: (011) 
843 1065. 



EQUIPAMENTOS 

• Radioamador vendo interfaces 
para CW e RTTY para ser usado 
com seu micro TK82/83/85 CP 
200 Ringo. Renato Strauss PY2- 
EMI. Rua Cardoso de Almeida, 
654/32 05013 - Sao Paulo - SP. 



• Eprom ZX-Aszmic transforma o 
seu TK82/83/85 e CP200 em uma 
unidade de programacao Assem- 
bler. Use todos os Mnemonicos Z 
80, Labels, Origin. Equate. Alta re- 
solucao grafica, 255 X144 Pixels. 
Todas as teclas com auto-repeat, 
merge de programas de fita K7, e 
muitas outras funcoes. Acompa- 
nha manual de 100 paginas. 14 
ORTN. Mandamos por reembol- 
so Varig. Pedidos a Compute, Rua 
Cruz Machado, 474, Caixa Postal 
1427, Curitiba, PR. CEP: 80000. 



CURSOS 



• HARDWARE ministra cursos de 
Microprocessadores Z-80, 8085, 
8080, 8086. 8088 e seus periferi- 
cos: PIO, SIO, CTC, 8212, 8224, 
8228, 8251 , 8253. 8255. ASSEM- 
BLER Zilog e Intel. E o primeiro 
curso de manutencao de Micro- 
computadores do Brasil de toda li- 
nha TRS-80 (CP-500, DGT-100. 
D-8000, Sysdata, Naja). APOSTI- 
LADOS - Rua das Marrecas, 39 
S/402 - Rio de Janeiro — RJ. - 
Tel.: (021 ) 220-5403 e 252-9683. 

• A Apple House-Sigmatron esta 
ministrando cursos de: Basic, 
Assembly (Micro Processador 
6502), DOS (arquivo em disco). 
Todos os per Todos, matri'culas aber- 
tas, certificado de freqiiencia. Av. 
Cotovia, 350 - Moema. Tel.: 240- 
9004. 




QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiado! Equipamentos, Software, Cursos, Clubes e Di versos: 
voce e quern decide o que, quando e como anunciar nos 
Classif icados MS. Quanto voce" tera que pagar? Isso tambem e 
decisio sua. Preste atencao: 

• cada linha de taxto (30 toques, incluindo os espacos em bronco) 
custa Cr$ 2.000.00; 

• linhas incompletes ser So cobradas como inteiras; 



• o prbprio anunciante deve checar o valor de seu anuncio com o 
numero de linhas que ele contiver; 

• o anuncio deve vir acompanhado de um cheque nominal a ATI 
Editora Ltda; 

Os textos devem ser datilograf ados ou escritos em letra de forma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 
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Maiores informacoes pelos telefones: (021) 262-5259 - RJ ou (011) 853-7758 - SP. 
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Se voce tern pequenas rotinas e programas utilitarios 
realmente uteis tomando poeira em seus disquetes ou f itas 
cassetes, antecipe-se aos piratas e trate de divulg£-los. En- 
vie-os para a REDACAO DE MICRO SISTEMAS -SEQAO 
DICAS: Av. Prestdente Wilson, 165/grupo 1210, Centra, 
Rio de Janeiro, RJ, CEP 20030. Nao se esqueca de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua descoberta poder^ ser util para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas f itas e dis- 
quetes... 



Linha TRS-80 



Sensacdo na tela 

Provoque um efeito sensacional no video do seu micro, 
com esta dicaque faza mensagem surgir, cardter por carfter, 
do canto direito da tela ate a posicao desejada. Teste e con- 
fira. 

/CLEAR 200 

10 CLS:INPUT"MENSAGEM";M*:CLS:M% 

=M% + " 

20 FOR K = i TO LEN(M ( B):F0R 1 = 63 T 

K STEP -i:PRINTai r MID*<M$,K,i> 

a* "."NEXT I ,K s GOTO 20 



Antonio Carlos L. de San tana — SP 



Linha SINCLAIR 



Centralize o texto 

Ai vai uma dica para os iniciantes aprenderem a 
centralizar os textos no seu micro: 

10 LET AS>="CENTRALIZACA0" 
20 PRINT TAB 15--LEN A<B/2 ? A* 

ou 

20 PRINT AT 10 r iS-LEN A$/2;A$ 

Ruy Mauncio R. Ribeiro - RJ 



Linha SINCLAIR 



Datilografia no micro 



Escreva na tela do seu equipamento como se estivesse 
batendo a maquina com esta dica: primeiro. digite o se- 
guinte programa: 



l RFM (40 pontos).. 

10 FOR A«iA5t4 TO I 
20 INPUT B 

25 PKllJT H; '•*,■ 

30 POKF (k.B 
40 NFXT A 



Depois, de RUN e entre com estes cddigos em decimal: 



16514 205 
187 
2 
68 

77 

121 

254 

255 

62 



40 

244 

205 

189 

7 

126 

205 



16531 8 
8 

254 
12 
200 
A 
1 
17 

ass 

255 
33 

50 
55 
25 

253 

16 

248 

24 

219 

248 

24 

216 



Apos a entrada dos cddigos, elimine as linhas de 10 a 
40, ficando apenas com a linha 1 (linha REM), e rode es- 
ta dica com RAND USR 16514. £ bom lembrar que de- 
ve-se usar o espaco usado normalmente para separar as 
palavras (como em datilografia). Quando terminar de bet- 
ter o seu texto no micro, basta apertar SHIFT e BREAK 
para encerrar. 

Manoal Silva Rodrigues — RJ 



Linha TRS-80 



Grdficos em string 



Enfeite seus programas ou logotipos com este progra- 
ma, em que o micro pergunta o graTico desejado (dentre 
os cddigos de 128 ati 191), e dentro de uma string da li- 
nha 20 surgird entfo, repetido 64 vezes, o graTico pedido. 
Por falar em linha 20, 6 necessirio deixar 64 espacos em 
branco nesta linha. 

4 CLS 

5 INPUT"DIGITE CARACTER DESEJA 
DO (128 -> 191) "|T 

10 IF T<128 OR T>191 THEN GOTO 5 
20 LET Gt«" 



30 G-VARPTR(QS) 

40 PA-PEEK<G*2>»236+PEEK<G+1> 

50 FOR I-PA TO PA+63 

60 POKE I.T 

70 NEXT I 

80 CLS 

90 PRINT"LISTE PROGRAMA E OBSE 

RVE A LINHA 20" 



Miguel Angelo Henley G. F9-RJ 



Linha TRS-80 



Tela dangante 

Coloque esta dica em linguagem de miquina no monitor residente do 
seu micro e veja a tela tremer como se estivesse a ponto de explodir: 

7000 3E 04 D3 EC 
3E 00 D3 EC 

C3 00 70 

E para quern desejar fazer este mesmo efeito, s6 que bem mais lento, 
6 s6 entrar com esta linha em BASIC : 

10 OUT 236 r 0:0UT 236 r 4:G0T0 10 

Alexandre Costa Gaeta - RJ 
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SINCLAIR 



INKEYS em FAST 

Quern pensava que s6 podia ver 
INKEYS em SLOW, agora vera* que es- 
tava enganado: esta dica facil permite vi- 
sualizar o INKEYS em FAST tambem! 
E para isso, basta colocar antes de qual- 
quer linha com INKEYS, uma linha que 
tenha: RAND USR 681. Muito simples, 
nab? 

Adriano Pascoal Pereira — RJ 



Linha 



SINCLAIR 



Simulando DEFM 

Eis uma dica bastante util para 
o pessoal que lida com Assembler: 
ela Simula, com rapidez e seguran- 
ca, a instrucao DEFM. Nesta roti- 
na que daremos a seguir, as linhas 
9030 e 9035 mudam a posicao do 
PRINT do arquivo de imagem pa- 
ra uma drea qualquer da RAM (de- 
signada pela variavel E), fazendo 
com que o PRINT funcione co- 
mo urn POKE mais poderoso do 
que o normal. 



9000 PRINT "ENDEREgO ?" 

9005 INPUT E 

9010 PRINT "MENSAGEM ?" 

9015 INPUT M$ 

9020 LET X=PEEK 16398 

9025 LET Y=PEEK 16399 

9030 POKE 16398, E-256* 

INT(E/256) 
9035 POKE 16399, INT(E/ 

256) 
9040 PRINT M$ 
9045 POKE 16398, X 
9050 POKE 16399, Y 
9055 PRINT "MENSAGEM D 

EFINIDA." 
Frederico dos Santos Liporace — RJ 



Linha SINCLAIR 



Implemente READ e DATA 

Nao raro vemos em tabelas de compatibilidade de BASIC, entre equipa- 
mentos que usam 16gicas diferentes, a afirmacao de que nao ha" correspon- 
dente das funcoes READ e DATA nos micros da 16gica Sinclair. A rigor, de 
um teclado para o outro, na"o ha" mesmo. Mas MICRO SISTEMAS ja" publi- 
cou como conseguir simular estas funcoes (MS n° 25, pag. 8, na materia 
"DATA, READ e RESTORE no TK"). Eis agora uma outra rotina que 
tambe'm permite a utilizaca"o destas instrucSes nos micros da linha Sinclair. 

Para executa-la, faija primeiro a entrada de dados da listagem 1 com os 
comandos E e M do MICRO BUG. Ao terminar de digjtar os codigos da lis- 
tagem 1 , digite P 4082, 40F9 para obter o resultado 2BDD. Se o resultado 
obtido nao for este, para e reveja os c6digos, pois algum deve estar errado. 

Na listagem 2, o comando RAND USR 16514 corresponde a READ 
AS, ou seja, transfere tudo o que esta* na linha REM TO (tudo mesmo, ate 
a virgula) para AS. O Comando REM TO corresponde ao DATA, e 6 a li- 
nha onde deverao ser escritos os AS. 

Para facilitar ainda mais a compreensao, a listagem 2, que 6 um progra- 
ma-exemplo desta dica, tern nas suas principals linhas as seguintes tarefas: 
linha 1 - linha reservada para o programa em LM que esta" contido na li- 
nha 7; linha 2 - dimensionada AS com tantos caracteres quant os os do 
maior numero da linha 7; linha 4 — coloca em AS um dos valores da linha 
7; linha 7 - contdm os valores que AS assumird (um a um); linha 11 — 
executa a rotina em LM contida na linha 1 . 



LISTAGEM 1 


LISTAGEM 2 


4082 


3A 29 


75 


FE 00 


20 


15 


21 




408A 


FE 40 


7E 


FE EA 


28 


03 


23 


2 LET A»-CHR* 0+CHRS 0+CHRS 


4092 


18 F8 


23 


7E FE 


DF 


20 


F7 


3 FOR A-1663? TO 16666 


409A 


23 22 


2A 


75 2A 


10 


40 


7E 


4 RAND USR 16514 


40A2 


FE 46 


28 


03 23 


18 


F8 


23 


5 POKE A,VAL A% 


40AA 


SE 23 


56 


23 EB 


19 


22 


2E 


6 NEXT A 




75 ED 


53 


2C 75 


21 


29 


75 


7 REM TO 42,12,64,35,14,22,6,32, 


40BA 
40C2 


34 2A 
07 21 


2A 
29 


75 7E 
75 36 


FE 
00 


76 
18 


20 

08 


126,203,127,32,4,203,255,24,2,20 
3,191,119,35,16,241,35,13,200,24 


40CA 


FE 1A 


20 


15 23 


22 


2A 


75 


8 FOR A-0 TO 139 


4002 


ED 5B 


2C 


75 2A 


2t 


75 


LD 


9 PRINT CHR* (128*INT <RND«64>)| 


40DA 


52 C8 


EB 


36 00 


23 


EB 


18 




40E2 


F3 23 


22 


2A 75 


ED 


5B 


2C 


10 NEXT A 


40EA 


75 2A 


2E 


75 ED 


52 


C8 


EB 


11 RAND USR 16639 


40F0 


77 23 


22 


2C 75 


18 


C2 




12 FOR A-i TO 10 

13 NEXT A 

14 RUN 11 



FAbio Policarpo de Oliveira — RJ 




rodada MS 



Aquela estacao de Buga-Buga mandou QLS? Voce sonha com o DXCC basico 
ou j4 corre atras do Honor-Roll? Tudo sera 1 ma is facil agora, com o... 



DXCC cibernetico 



Jorge A. C. Bettencourt Soares 



Este programa foi desenvolvido 
com o objetivo de permitir ao 
radioamador entusiasta do 
DX o controle de sua situa- 
cao sobre todos os pai'ses vdlidos para o 
DXCC e, acredito, seii de grande va- 
lia principalmente para aqueles que se 
dedicam ao referido diploma. Com ele, 
voce poderd a qualquer momento obter, 
atrave's do prefixo ou nome do pais, a 
sua situacao em rela9ao a qualquer dos 
315 pai'ses atualmente vdlidos para o 
DXCC, bem como a estacao trabalhada 
ou a que voce ji tenha creditado em al- 
gum dos seus endossos. Serd possivel, 
tambe'm, a obtencao de listagem via im- 
pressora contendo uma relacao de prefi- 
xos e pai'ses ou ainda de outra relacao 
de prefixos, pai'ses e sua situacao em re- 
lacao a cada urn deles. 

programa foi desenvolvido para ro- 
dar em BASIC cassete e utiliza a instru- 
9S6 DATA para o armazenamento dos 
dados. Os que dispoem de BASIC disco 
poderao modificar parte do programa, o 
que sera 1 descrito posteriormente. 

Para obter um bom resultado com es- 
te programa, tenha a mSo a lista atuali- 
zada dos pai'ses da ARRL - a qual nao 6 
publicada para nao alongar desnecessa- 
riamente o trabalho — caso nSo dispo- 
nha da mesma, peca a um colega ou en- 
vie-me um envelope auto-endere9ado e 
selado (SASE) e terei prazer em remete- 
la. 

RODANDO O PROGRAMA 

A primeira op9§o do menu principal 
destina-se ao arquivo de dados. Na pri- 
meira vez em que rodar o programa, vo- 
ce deve completi-lo com os dados dos 



74 



pai'ses da ARRL. Isto 6 feito, segundo 
as instrucpes contidas no proprio pro- 
grama, atrave's da introducao de declara- 
c5es DATA, a partir da linha 1001 (exem- 
plo: 1025 DATA 25, VK, AUSTRALIA, 
VK2DTA, TRABALHADA). £ impor- 
tante numerar as linhas DATA com in- 
tervalos de uma unidade. Isso porque 
quando voce armazenar os dados do ul- 
timo pais, eles estarao na linha 1315, e 
toda a vez que for necessaria alguma 
modificacao, atrave's da procura por pre- 
fixo ou pais, voce obter£ um numero de 
arquivo no video que somado a 1000 lhe 
possibilitara localizar a linha onde os da- 
dos estlo armazenados. 

A maior precaufao a ser tomada no 
armazenamento dos dados 6 quanto ao 
comentario sobre cada pais. Seja o mais 



suscinto possivel, pois as rotinas de im- 
pressao comportam apenas breves co- 
mentarios. Voce podera detalhd-los me- 
lhor, mas serd necessario modificar a ro- 
tina de impressao que os inclui. 

A titulo de sugestao utilize NAO 
TRABALHADO, PARA CRfiDITO, 1 
* CfiDITO, 2 * CR£DITOS etc. 

As opcoes 2 e 3 do menu principal 
destinam-se a procura de dados, quer 
pelo prefixo ou pelo nome do pais de- 
sejado, respectivamente. Voce deverd 
cuidar apenas com a introducao correta 
do prefixo ou nome do pais em questao 
para obter a informa?ao sem ocorrencia 
de erro na execucao do programa. 

A opcao 4 destina-se ao armazena- 
mento de dados estatisticos, e o prdprio 
programa lhe oriental na introducao 



ACjSO 


If'kH*«"2",SDT04210 


4040 


G0T04O30 


4070 


CLS:INPUT"ENTRE COM P DflTR-jDT* 


4080 


IMPUT-ENTRE COM fl QUflNTIDRDE DE PRISES VflLIDOS PRRO - D. X . C . C . • ; M 


4090 


IXPUT-EKTRE COM R QURNTIDRDE DE PRISES TRRBRLHRDOS " 5 H 


4100 


I vp-jT"ENTRE COM R QURKTIDRDE DE PRISES COKFI RMRDOS " 1 


4110 


INPUT"ENTRE COM R QURKTIDRDE DE PRISES CREDI TRDOS " J P 


4120 


CLS»FORfl»lT0200iPRIKTtO, "DRDOS ESTATISTICOS SEMDO SRRVRDOS EM DIs 


C0"» 




4130 


0PEN"0",1, ■'DXCC/EST- 


4140 


PRINT«1,DT« 


4130 


PRIMT«1,M 


4160 


PRIKT«1,N 


4170 


PRIHTtl.O 


4180 


PtIKT#l,P 


4190 


CLOSE*! 


4200 


60T040 


4210 


CLS:PRINT"LEITUBR DE DRDOS ESTATISTICOS SENDO RERLIZRDR"; 


4220 


OPEK-I-,2, "DXCC/EST" 


4230 


INPL - T»2,DT* 


4240 


IXP'JTt2,M 


4230 


INPL'T»2,K 


4260 


IKPUT«2,0 


4270 


INPUT«2,P 


4280 


CL0SEV2 



Figura 1 - Modiflcafdes para uso com BASIC disco 



MICRO SISTEMAS, janeiro/85 



INFORMACOES UTEIS PARA OUEM TEM. OU NAO TEM O MICRO 



A Filcres faz de sua empresa o seu Show Room 

microcomputadores 



Especialistas em 



levam ate voce toda sua estrutura de Marketing. Conheca 
os CP300 e CP500 aliados ao alto desempenho da Impressora 
P500 e na configuracao exata do seu problema. 



A Filcres oferece aos seus u suarios a ssistencia tecnica 

I ■■■ I 
autorizada Prologica ■■■ , completa biblioteca 



de software, diversificada linha de suprimentos, alem de 



treinamento gratuito de operacao 



Basic 



e linguagem 



Venha ate aqui, ou ligue que iremos ate voce! 



filcres 

FILCRES ELETR6NICA ATACADISTA LTDA. 
Rua Aurora. 165 - CEP 01209 - SSo Paulo - SP 
Tels : 223 1446-220-5794 - 222 3458 
PBX: 223 7388 






LEVE NOSSO SHOW ROOM P/ SUA CASA! 



De PY1DWM 



RODADA MS, em nova edicao, traz nova colaboracao de PY5CIG-Alcione, ende- 
recada aos "cacadores de figurinhas", e que tornara o controle dos pai'ses trabalha- 
dos/conflrmados no DXCC verdadeira brincadeiia de crianca. A listagem e para os 
possuidores da linha TRS-80 - cassete, mas sao fornecidas todas as dicas para que os 
usuarios de versao disco possam incrementa-la. 

O programa C6digo Morse a Moda SINCLAIR (cadeo indicativo, Jorge?) vem fazen- 
do o maior sucesso nas faixas. Recebemos, de PY2RNJ-Ervin, artigo descrevendo uma in- 
terface facilima de construir, que permite ao programa do Jorge manipular diretamente 
um transmissor, transformando o seu SINCLAIR em um "keyboard ". Pelo que puder 
ouvir na Rodada do Micro, e de fazer muito "munheca de ouro" ficar de agua na boca. 

Recebemos com muita satisfacao, de RENSI Eletronica Digital (leia-*e PY2EMI-Re- 
nato e PY2AIM-Sinesio), uma interface RS 10S0/A, para transmissao e recepcaode CW 
atraves de micros SINCLAIR, para ser testada pela Rodada MS e sorteada entre os nossos 
leitores. 

SORTEIO DAS ASSLNATURAS DE MS: em "solenidade" realizada em nossa reda- 
cab foram sorteados - por nossa "comandante-em-chefe" Alda Campos, por nosso Dire- 
tor-Tecnico Renato Degiovani, e por mim pr6prio, os felizes ganhadores das 
assinaturas por um ano de MS: PY2CJM-Maneco, PY3BU-Jason e PYlFO-£vio. 
Na ocasiao, nossa "chefa" Alda manifestou sua satisfacao pelo sucesso de nossa promo- 
cao, que teve o expressive niimero de 172 participantes de todas as regioes radioamado- 
ri'sticas do Brasil, o que comprova a excelente penetracao de MS. Nosso muito obrigado a 
todos e cumprimentos aos felizes sorteados. 

Correspondencia recebida: de PYIAFA-Gil (Antenna/ Eletronica Popular), de 
PY20NO-Mauri'cio. PY3GJ-Siebel, PY30V-Ribeiro, PYIXT-Guaracy. PYIDPQ-Bruno, 
PY2VDK-Ibere, PY2UMW-Miguel, PY2VBA-Ideli, PY2CJW-Maneco, PY3IT-Pivatto, 
PY3LL-Deco, PR7AAV-Kleber e PT7-IS-Ilidio, com observacoes, sugestoes e colabora- 
cQes diversas. Acusamos, ainda, a visita a nossa redacao de PY3KT-Walter, ocasiao em 
que pode tomar contato com todo o nosso pessoal e sentir o carinho com que MS e feita. 

Vejam no expediente. (pagina 4), uma pequena homenagem a PY2AQO-Luiz, pelo 
excelente trabalho que vem realizando. na divulgacao da RODADA MS e pela eflciente 
conducao da rodada ao Micro - todos os nossos elogios e agradecimentos ao Luiz nunca 
estarao a alt ura de sua dedicacao . 

Curtam, agora, o trabalho do Alcione e mandem-nos noticias de suas realizacoes, cm 
especial a conquista do DXCC. Fiquem conosco e nao percam a nossa proxima edicao. 
HPE CUAGN 73 ES GL FM PY1DWM 



A RODADA MS 4 coordenada por PY1DWM - Roberto Quito de Sant'Anna. Qualquer 
correspondencia e/ou colaboracao deve ser enviada aos seus cuidados, para a Av. Presi- 
dente Wilson. 165, grupo 1210, CEP 20030, Rio de Janeiro. RJ. Contatos diretos via 
Rodada do Micro (7097 KHz. das 16:00 ds 18:00h). Patruiha da Madrugada (7055 
KHz. das 22:00 as 23:00h) ou pelo telefone (0243) 54-3355, ramal 594. 



destes dados, utilizando-se de variaveis 
encontradas entre as linhas 10000 e 
10040. Aqueles que dispuserem de BA- 
SIC disco deverao utilizar a listagem en- 
contrada na figura 1 , desconsiderando 
todas as linhas compreendidas entre as 
linhas 4050 e 4280 da listagem principal. 
Tambe'm nfo deverao ser copiadas as 
linhas a partir da 9000, pois as mesmas 
s6 produzem efeito para a rotina de da- 
dos estatisticos na versao cassete. 

A op^ao 5 destina-se a listagem em 
impressora. SIo fornecidas as duas lista- 
gens ja descritas anteriormente. 

A opcao 6 so 6 executavel em BASIC 
disco, e, por fim, a opcao 7 destina-se a 
gravar o programa, opcao esta que sera 
utilizada toda a vez que voce modificar 
algum dado. A mesma encontra-se na li- 
nha 7000, e aqueles que possuem BASIC 
disco deverao trocar a instrucao CSAVE 
por SAVE. 

O programa e\ sem duvida, trabalho- 
so no que diz respeito a introdu9§o de 
dados, tendo em vista a grande quanti- 
dade dos mesmos, mas sera* de grande 
utilidade ao radioamador praticante do 
DX. Por fim, voce podera - otimiza-lo in- 
cluindo, nas instru96es DATA, outra va- 
riavel que lhe possibilite, tambe'm, obter 
a dire9ao em graus de sua localidade pa- 
ra cada um dos paises armazenados. 



Jorge A. C. Better court Soares 6 engenheiro 
agrbnomo e trabalha na Coordenadoria de As- 
sistSncia T6cnica Integral da Secretaria de Agri- 
cultura a abastecimento, na cidade de Bauru, 
SP. J6 foi programador de um Burroughs B- 
500 no infcio da decada de 70 e atualmente 6 
usuirio da um TK85. 




o 

10 'PROGRAMA D.X.C.C. ALCIONE SPERANDIO JUNIOR PY5 - CIG. 

20 'RUA SAO LE0P0LD0 125 - 80.000 - CURITIBA - PARANA 

30 . 

40 CLSICLEAR200 

50 FORA-OT0127iSET(A,0)iSET(A,10>iSET(A,37>iSET(A,47)iNEXTA 

60 PRINT8A6,~P-Y-5-C-I-Q"»iPRINT892,"D-X-C-C»iPRINT3115."Z-Y-5- 

C-I-0" 

70 PRINTCHR*(21>,IPRINT8322,~AR«UIUAR DADOS -1-", IPRINT8384, "PRO 

CURA POR PREFIXO -2-"| IPRINT3450, "PR0CURA POR PAIS -3-"» :PRINT35 

14, "DADOS ESTATISTICOS -4-" , JPRINT3578, "IHPRESSAO DE DADOS -5-"» 

sPRINT3642,"DIRET0RI0 -6-", IPR INT3706, "GRAVAR PROGRAMA -7-", 

80 PRINT3926."< (C) ) Alcione Spcrandio Junior. ", 

81 F0RA-10T037iSET(0,A>i8ET<A4,A)iSET(127,A)iNEXT 
90 KHt-INKEYt 

100 IFKH*-"1",900 

110 IFKH*-"2",2000 

120 IFKH*-"3",3000 

130 IFKH*-"4",40O0 

140 IFKH*-"5",5000 

150 IFKH*-"6~,6000 

160 IFKH*""7",7000 

170 G0T090 

900 GOSU88000iFORA-lT0100iPRINTa479,"AR«UIVO DE DADOS" i INEXTAICL 

8 

910 PRINT-UTILIZAR < DATA > A PARTIR DA LINHA 1001" 

920 PRINT-ENTRE COM OS DADOS 0BDECEND0 A SEGUINTE 0RDEM"; 

930 PRINTa384."NUMER0 DE ARftUIVO" tPRINT"PREFIXO<S)"tPRINT"PAIS"i 

PBINT"C0MENTARI0S"IPRINT"PREFIX0 DA ESTACA0 < CREDITADA - P/CRED 

I TO 0U TRABALHAOA >", 

940 PRINTtPRINT«PRINT"PRESSIONE QUALQUER TECLA"| 

950 IFINKEY*-"",G0T0950 

960 CLSiLISTlOOl - 1800 

2000 GOSUB8000iFORA-lT0100iPRINT3679,"PROCURA POR PREFIX0"| INEXT 

AlCLS 

2010 INPUT-'ENTRE COM PREFIXO PARA PROCURA",PP% 

2020 RESTORE IFORA-1T0320 I 0NERR0RG0T02055 



2030 READN. At. BS.CS, Dt 

2040 IFPPS-LEFTS<AS,LEN<PPS))",2060 

2050 NEXTA 

2055 F0RA-1T050IPRINT364, "PREFIXO NAO ENC0NTRA00"«NEXTAiG0T0201O 

2060 CLS1PRINT"PR0CURA POR PREFIXO REALIZADA", tF0RA-0T0127iSET< A 

,10)lSET<A,35)iNEXTAiF0RA-10T035iSET<0,A)iSET(30,A)iSET(127,A)tN 

EXTA 

2070 PRINT3323,"AR0UIW0 N»", «PR INT33B7,"PREFIX0<S>" » IPRINT3451 ," 

PAIS",lPRINT3515,"C0MENTARI0S",iPRINT3579,"ESTACA0(0ES)", 

2080 PRINT3336,N,iPRINT3401,AS,iPRINT3465.BS,lPRINT3529,CS»iPRIN 

T3593.DS, 

2090 PRINT3927,"MAIS DADOS P/PROCURA SIM OU NAO ?"j 

2100 KHS-INKEYS 

2110 IFKHS«"S",G0T02000 

2120 IFKHS-"N",G0T040 

2130 G0T02100 

3000 GOSUB8000iFORA-lT0100iPRINT3679,"PROCURA POR PAIS", INEXTAIC 

LS 

3010 INPUT"ENTRE COM NOME DO PAIS PARA PROCURA",PPS 

3020 RESTORE IF0RA-1T0320I0NERR0RG0T030S5 

3030 READN, AS, BS.CS, DS 

3040 IFPPS-LEFTS<BS,LEN(PPS) ) ,3060 

3050 NEXTA 

3055 F0RA»1T050«PRINT364,"PAIS NAO ENC0NTRAD0"iNEXTAlG0T03010 

3060 CLS»PRINT"PROCURA POR PAIS REALIZADA" , iF0RA«0T0127iSET< A, 10 

):SET(A,35)iNEXTAiF0RA«10T035iSET<0,A)iSET<30,A>iSET<127,A)lNEXT 

A 

3070 PRINT3323,"AR«UIW0 N«", IPRINT3387, "PAIS", IPRINT3451 , "PREFIX 

0(S)",«PRINT3515,"COMENTARI08",iPRINT3579,"ESTACA0(0ES>", 

3080 PRINT3336,N,iPRINT3401,BS,iPRINT3465,AS,iPRINT3529,CS,iPRIN 

T3593.DS, 

3090 PRINT3927,"MAIS DADOS P/PROCURA SIM OU NAO 7", 

3100 KHS-INKEYS 

3110 IFKHS-"S",G0T03000 

3120 IFKHS-"N",00T040 

3130 G0T03100 

4000 G0SUB8000:F0RA-lT0100iPRINT3679,"ESTATISTICA~»iNEXTAiCLS 

4010 PRINT"ENTRADA DE DADOS ESTATISTICOS < 1 >" 

4020 PRINT"LISTAGEM DE DADOS ESTATISTICOS < 2 >"» 

4030 KHS-INKEYS 

4040 IFKHS-"1".G0T04070 

4050 IFKHS-"2".G0T04280 



'6 
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SINTA NOSDEDOS ESTA CONQUISTA 

DIGIPLEX 







RuaGavea 150 Ttl (031)3324X0 
30000 Belo Hortionte T«9t 03 1 3352 
Rue Strata Ribeiro. 391 s' 404 
Tel 1021)2572960 Rio He Janeiro 



Para pequenas e medias empresas, a DIGITUS langa o DIGIPLEX. Urn modulo capaz de formar uma rede local de 
multi-usuarios, que alem de proporcionar o dinamismo de urn CPD tambem simplificara o gerenciamento de sua 
empresa. 

Com varios terminals executando programas especificos, a implantacao do DIGIPLEX proporcionara a sua em- 
presa urn aumentoda produtividade e qualidade, ja que a interligacao on linedos terminals permitira que se 
trabalhe com dados e informacdes atualizadas. 

Ligados ao DIGIPLEX poderao estar ate 16 terminals inteligentes. fazendo a contabilidade, controle de estoque, 
vendas e producao, malas diretas, estatisticas ou seja, atendendo a todas as necessidades de sua empresa. 

RovoMotoros Arte* (079) 224 7776 223 1310 Baumori (01 1 ) 421 521 1 aVastta (061 ) 242 6344 248 5359 273 2128 229 4534 BtMfli (091 ) 225 4000 Mo Hortnnti (031 ) 223 6947 222 7889 334 2822 344 5506 
??\3305 225 6239 Campwas (0192) 32 6322 Curfflba (041 1 232 1750 243 1731 OwtMpoks (037) 221 9800 Fortalaza (085) 227 5878 224 4235 224 3923 224 4691 226 4922 RofiantpoM (0482) 23 1039 Ftz do 
lguK« (0455) 72 1418 GtttMa (062) 223 1 165 Jtto Ptssoa i083) 221 6743 Jirii to Fora (032) 213 2494 LontrMl (04321 23 71 10 Mac* (0821 223 3979 Moults Claras (038) 221 2599 Mtarti (021) 710 2780 Novo 
H«Mi»7|i 1051) 293 1024 Owo Proto (031) 551 3013 Pkos «• Cattas (035) 721 5810 Porto Uofro (0512) 26 1988334066021 418925000726 1900 RoeMo (0811 326 9318 221 49953269969 RibMrst Prtto 
(016) 636 0586 Rto to JwMtro |021) 252 9420 262 2661 292 0033 267 1093 252 9191 541 2345 268 7480 221 8282 288 2650 253 3395 257 4398 222 4515 263 1241 295 8194 247 7842 322 1960 316 4966 
551 8942 San/at* (071) 242 9394 241 6189 Santa Marls (0551 22 i 9588 Sit Patta (011) 280 2322 815 0099 533 2111 231 3922 258 4411 222 1511 853 9288 TaubMt (0122) 32 9807 Wtria (027) 223 5147 
223 5610 



dxcc ciberneVtico 



4060 GOT04030 5110 LPRINT" 

4070 CLSlF0RA-0T063lPRINTCHRS<95),lNEXTA 

4080 PRINT"I-N-S-T-R-U-C-0-E-S P-A-R-A D-A-0-0-S E-S-T-A-T-I- 5120 L PRINT"LISTAGEM A.R.R.L. D.X.C.C. 

S-T-I-C-0-8", 3130 LPRINT- 

4090 G0SUB9000iPRINTiPRINT ' ■ 

4100 PRINT"0a dadom eatatiatlcoa de sua cstacao •■ ralacao aos p 5140 LPR1NT ,.p_ R . E _ F _i_ x _ <S>"» «LPRINTTA8<25> ,~P-A-I-S-E-S~ 

alaae"iPRINTtPRINT-val Idoa para o D.X.C.C. s«rao araazanadoa atr 3150. LPRINT" 

av«s das var lavela"«PRINTiPRINT"qua tncontr»s-it nas 1 Inhas *"iP ~ 

RINTiPRINT"10000 - 10010 - 10020 - 10030 - 10040"iPRINT 5l60 L PRINT«LP$*NT 

4110 PRINT"PRESSIONE 8UAL8UER TECLA"iG0SUB9000 5170 REST0RE1F0RA-1T0320 

4120 IFINKEY*-""4120 3180 REAON, A*,Bt,C»,0*iLPRINTTAB(0) , A*, ILPRINTTAB <25) ,B*iON€RROR 

4121 CLSi00SUB9000tPRINTiPRINT'*< 10000 > Data do ultimo r«9istro G0T040 INEXTA 
-iPRINTiPRINT"< 10010 > Guantldada da palacs wal idom para o D.X. 51?0 L p R i NT iLPRINT 

C.C.~iPRINT«PRINT"< 10020 > ftuantidada d« paiaae trabalhados IP 5210 C LStPRINTCHR*<23> |8256, "PREPARE A INPRESS0RA"iPRINT~AP0S PR 

RINTiPRINT"< 10030 > Auantidada da paises confiraadoa" EPARA-LA DID. << C ) >" 

4122 PRINTiPRINT"< 10040 > Quant idada da paiaaa crad I tadoe"iPRIN 5220 p Y »-iNKEY» 
T"Modif iqua-as toda a vaz qua houvar qualquar altaracao as ralac 5230 ifpys-"C",G0T052S0 
aoao sau 0.X.C.C."«PRINTiPRINT"PRESSI0NE «UAL«UER TECLA" 5240 00 T05220 

4124 IFINKEY«-""4124 5250 CLSiLPRINT" 

4125 CLS«GOSUB9000iLIST10000-10040 " 

4280 G0SUB10000 5260 LPRINT"D.X.C.C. RELACA0 A.R.R.L CONTENDO PREFIXOS. PAISES E 

4290 CLS«F0RA-0T0127iSET(A,0>«SET(A.10)«8ET(A r 47)iNEXTAiF0RA-0T0 COMENTARIOS" 

47iSET(0,A)iSET(127,A)iNEXT . _ „ . 5270 LPRINT" 

4300 PRINT866 "D-X-C-C DADOS ESTATISTICOS", «PRINT8130."ESTACA .. 

P-Y-5-C-I-G"i 5280 LPRINTTAB <0> ,"P-R-E-F-I-X-0<S>~, ILPRINTTA8 <25) ,"P-A-I-S-E-S 

4310 PRINTa258."DATA DO ULTIMO REGISTRO ">DT» f ", ILPRINTTAB (55 >» "COMENTARIOS" 

4320 PRINT8386, "PAISES VALIDOS ", USING"*"*", M| IPRINT8450, "PA S29Q LPRINTILPRINT 

ISES TRABALHAOOS " ,USING"HtW"»N, IPRINT8514, "PAISES CONFIRMADOS " 5300 REST 0RElF0RA-iT0320lREADN. At,B*,C*,D*lLPRINTTAB (0) ,A», ILPRI 

,USING"a»tt<"»0| IPRINT8578, "PAISES CREOITADOS ",USING""*«"»P ; NTTAB <25) »B* , ILPRINTTAB (55) ,C*iONERRORGOT040 »NEXTA 

4330 PRINT8418. "PAISES A CONFIRMAR ~ ,USING"«H»";N-0, «PR INT8482, " &000 GO SUB8000«FORA-1T0100IPRINT8679,"DIRETORIO", INEXTA«CLS:PRIN 

PAISES A TRABALHAR ",USING"»Rlt"|M-N, IPRINT8546. "PAISES A CREDITA T"DIRET0RI0 - BASIC <1> - C.M.D <2>", 

R ", USING"***" |0-P, 6010 KH*-INKEYS 

4340 PRINT8B98,"PARA RETORNAR AO MENU DIGITE 88 TECLA"| 6020 IFKH*-"1" , G0T06050 

4350 IFINKEY*-"".G0T0435O 6030 IFKH*-"2",G0T06060 

4360 G0T040 mtM . __ _ 6040 G0T06010 

5000 GOSUB80OO«F0RA-lT0100iPBINT8679,"IMPRESSA0"»lNEXTAiCLS 6(J50 CLS iCMD"DIR"iEN0 

5010 PRINTtPRINT"LISTAGEM A.R.R.L <1>" 6060 CMD"DIR"iCMD"S" 

5020 PRINT'XISTAGEM A.R.R.L COM COMENTARIOS <2>" 7000 G OSUB8000iFORA-iT0100iPRINT8679,"GRAVANOO PROGRAMA", tCSAW 

5030 DX*-INKEY* E"DXCC"lF0RA>iT0100lPRINT8679, "PROGRAMA GRAUADO "jtNEXTAlP 

5040 IF0X$-"1",G0T05070 RINT8675," ",IG0T070 

5050 IFDX«-"2",O0T0521O 8000 P0KE16035,244iP0KE16036,245iP0KE16037 ,246iRETURN 

5060 G0T05030 ■■•»—«*««« do '0°° F0RA-0T063iPRINTCHR*<95> , 1NEXTA1RETURN 

5070 CLS»PRINTCHR*<23>»3256,"PREPERE A IMPRESSORA IPRINT APOS PR 10000 DTS«"00/00/00" 'DATA ULTIMO REGISTRO 

EPARA-LA DIG <( C )>"l 10010 M-000 '8UANTI0ADE DE PAISES VALIDOS 

5080 PY1-INKEYS 10020 N-000 '8UANTIDADE DE PAISES TRABALHADOS 

5090 IFPYS-"C",G0T05110 10030 0-000 '8UANTIDADE DE PAISES CONFIRMADOS 

5100 G0T05080 10040 P-000 •GOANTIDADE DE PAISES CREDITAOOS 

10050 RETURN 



A GUARDIAN GAR ANTE 
ENERGIA A TODA PROVA 




GERADOR ELETRONICO GERATRON: 
A PROVA DE FALHAS. 

Fornece energia para microcomputado- 
res da linha Apple e TRS-80, em casos 
de emergfincia. Capacidade de 200 VA. 
com autonomia de ate 90 minutos. 

ESTABILIZADORES DE TENSAO 
GUARDIAN: A PROVA DE 
FLUTUACdES E TRANSIENTES. 

Ultra- rapidos. protegem o seu CPD con- 
tra variagOes da rede em ate +22% ees- 
tabilizam a saida em + 1 % . Incorporam 
filtro na entrada. transtormador isolador 
e chave de transf erfincia para a rede . Ca- 
pacidade de 0.25 KVAa 100 KVA. 




SISTEMA NO BREAK GUARDIAN: 
A TODA PROVA. 

£ a solucao mais completa contra tran- 
sientes, flutuagOes e falta total de ener- 
gia. A Linha Ba"sica varia de 2,5 KVAa 
100 KVA. DispOe de chave estatica de 
saida e utiliza t6cnica de sintese da for- 
ma de onda senoidal. com tiristores. 
A Linha Econfimica e a solugao para 
CPD's de pequeno porte, com capacida- 
de de 0.25 KVA a 5 KVA. 
N3o deixe que a ma qualidade da energia 
el6trica estrague os seus programas. 
Ligue agora mesmo para a Guardian. 



GUARDIAN 



Equipamentos EletrOnicos Ltda. 

Rua Or Gamier. 579 

Rio de Janeiro -CEP 20.971 

Rio: PABX (021) 261-6458 - (021) 201-0195 

Telex (021)34 016 
S30 Paulo: (011)270-3175 

REPRESENTANTES EM T0D0 BRASIL 




Geratrorr 



Estabilizadores de tensao 



Sistemas No Break 






CP400 COLOR 
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QUEM TEM UM,TEM FUTURO. 



VOCE TEM QUE ESTAR PREPARADO 
PARA SE DESESVOLYER COM OS 
NOVOS TEMPOS QUE ESTAO AI. E 
CP 400 COLOR t A CHAVE DESSA 
EVOLUgAO PESSOAL E PROFLSS10NAL. 





PORQUE? 
PORQUEOCP400 
COLOR SUM 
COMPUTADOR 
PESSOAL 
DE TEMPO 
LNTEGRAL: UTIL 
PARAAFAMILIATODA.ODIA 
INTEIRO. 

NAHORADESEDIVERT1R.POR 
EXEMPLO. t MUTTO MAIS 
EMOCIONANTE PORQUE, ALEM DE 
OFERECERJOGOSINEDITOS, 
E UN1CO COM DOIS JOYSTICKS 
ANALOGICOSDEALTA 
SKNSIBILIDADE, QUE PERMITEM 
MOVIMENTARASIMAGENS 
EM TODAS AS DIREgOES, MESMO. 

NAHORADETRABALHARE 
ESTUDAR. CP 400 COLOR MOSTRA 
SEULALX)SERIO:MEMORIA 
EXPANSfVEL, PORTA PARA COMU- 
NICAgAO DE DADOS, SAIDA PARA 
IMPRESSORA E UMA OTIMA NITIDEZ 
COMIMAIIFLNSCOLORIDAS. 

COMOSETUDOISSONAO 
BASTASSE, A PROLOGICA AINDA 
OFERECE A GARANTIA DE 
Ql ALIDADE DE QUEM £ UDER NA 
TECNOLOGIADECOMPUTA- 
DORES, E PRECO MAIS ACESSIVEL 
NACATEGORIA. 

NUMAFRASE:SEV0C£NA0 
QUISER CHEGAR ATRASADO AO 
FUTURO, COMPRESEUCP 400 



COIDRIMEDIATAMENTE. 

EMOCAO E I VI II . I ( . FN ( I \ MM 
EQIIPAMENTOS6. 

• LMAGENS COM ATE" 9 CORES. 

• OTIMA RESOLU^AO: 49.152 PONTOS. 

• DUAS VERSOES A SUA ESCOLHA: 
16K OU 64K DE MEMQRIA RAM. 

• MLMORIA RAM EXPANSIVEL: VOCfc 

comeca com 16k e pode chegar 
ate"64kcomdisquetes. 
• utiliza cartuchos para apuca- 
tivosejogos: 
banco de dados, 
editor detex- 
tos, plaxilhas 
eletrQmcas, 
graficos, 
entreoutros. 

MEMORIA 
EXTERNA EM 

CASSETE OU DISQUETE (ESTE. 

DISPONIVEL EM DEZEMBRO). 
» PORTA RS 232 C INCORPORADA, 

PERMITINDO COMUNICAgAO 

DE DADOS E UGACAO DIRETA A 

LMPRESSORA 

SERIAL. 
•PERMITECOM- 

PETigA()DE2 

JOGADORESAO 

MESMO TEMPO. 

SEUS JOYSTICKS 

ANALOGICOS 

OFERECEM INFI ^ 

NITAS POSigOES ■ 





NA TELA. ENQUANTO OLTROS TEM 
SOMENTE 
8DIREgOES. 
• GRANDE QUAN 
DADEDE 
PROGRAMAS 
A DISPOSICAO: 
APUCATTVOS 
PESSOAlS.PRonS- 
SIONAIS EJOGOS. 

CP400 

MICROCOMPUTADOR=COLOR 

VEJA. TESTE ECOMPRE 
SEU CP 400 COLOR N< 16 MA( iAZLNES 
E REVENDEDORES PROLOGICA. 

■■■ PROLOGICA 

H A miaocomputadores 
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Apresentamos o 

TK 20001 

Be rada o programs 

mais famoso 

do mundo. 

De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

novo TK 2000 II roda o 
Multicalc : a versao Microsoft do 
Visicalc ■ o programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, voce 
controla estoques, custos, contas a 



pagar, faz sua programacao financeira, 
efetua a folha de pagamentos e 
administra minuto a mmuto as suas 
atividades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar planilhas com 
computadores da linha Apple® 

E, como todo business computer 




que se preza, ele tern teclado 
profissional, aceita monitor, diskette, 
impressora e ja vem com interface. 

Alem de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peca logo uma 
demonstracao do novo TK 2000 II, nas 
versoes 64K ou 128K de memoria. 

A mais nova estrela do show 
business so espera por isto para 
estrear no seu negocio. 

Preco de lancamento* (128 K): 
Cr$ 1.949.850 

/VIICRODIGIML 

computadores pessoais 



Open for Business. 
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